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ACHTUNG ITI-99/4A Besitzer - ACHTUNG! TI-99/4A Besitzer 


Peripherie 

orig. Tl-Peripherie Erw.-Box mit 
Disk-Steuerkarte u. Laufwerk 1.480,- 

32 K-Byte RAM 
RS 232 Karte 
Externe Erweiterungen 
32 K-Byte RAM 
32 K-Byte RAM mit 


Centronics-Interface 


425,- 

398, - 

299,- 

399, - 


Zubehör 

Graphic Tableau 248,- 

Cartridge Expander(für3 Module) 128,- 
Akustikkoppler-Dataphon 298,- 

Dl N A 4- 4 Farb.-Drucker/Plotter 898,- 
Siim Line Disk-Laufwerk (DS DD) 650,- 


Einbausatz für 2 Slim Line 
Laufwerke in orig. Box 


96,- 


Module 

Extended Basic (deutsch) 
Mini Memory 
Terminal Emulator II 
Multiplan 
Editor Assembler 
Spiele von 
z. B. Moonmine 


Alle Preise incl. MwSt. zuzügl. 5,- DM Versandkosten. Lieferung per Nachnahme 
oder Vorkasse, ab 200,- DM versandkostenfrei. 

Fordern Sie unsere kostenlose Preisliste an. 


Programm-Service 



GmbH 


5584 Bullay 

Bergstraße 80 
Telefon 06542/2715 
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24+29 


30—35 


35-39 


42-45 




Grüß Gott- 
Gruezi — 
Guten Tag 

Leider mußten wir 
die vierte Ausgabe der 
TI-REVUE mit erhebli¬ 
cher Verspätung auslie¬ 
fern. Wir können uns an 
dieser Stelle nur tausend¬ 
mal entschuldigen und 
sagen, es wird nicht wie¬ 
der Vorkommen. Auch 
für uns war und ist die 
Situation mehr als unbe¬ 
friedigend und so haben 
wir uns natürlich Gedan¬ 
ken gemacht, wie wir 
Ihren Wünschen besser 
gerecht werden können. 
Dies war nur durch die 
personelle Aufstockung 
des TI-REVUE-Teams 
zu schaffen. Nun sind 
leider Leute aus dem 
journalistischen Fach mit 


viel Wissen über den TI 
99/4A nicht wie Sand 
am Meer zu finden. 

Um so erfreuter waren 
wir schließlich, daß wir 
Heiner Martin, bekannt 
durch mehrere Artikel 
über den TI 99/4A und 
erfahren im Zeitschriften¬ 
geschäft, für eine Mit¬ 
arbeit im Redaktionsteam 
gewinnen konnten. 

Das in der letzten Aus¬ 
gabe angekündigte 
,,heiße Telefon“ für Eure 
Fragen steht ebenfalls 
zur Verfügung. 

Unter der Telefon¬ 
nummer 073 1 133220 
stehen Euch jeden 
Diensta g von 15 bis 
19 Uhr Experten für 
Eure Fragen zur Ver fügung. 

Das nächste Heft kommt 
Ende April/Anfang Mai, 
also nicht versäumen 
und bis dahin die besten 
Grüße von 

Eurem TI-REVUE-Team 


LIEBE LESER. 

Für diese Ihre 
TI-REVUE mußten Sie 
statt, wie bisher, 

DM 4,80 siebzig Pfen¬ 
nig mehr bezahlen. 

Wir bedanken uns, 
daß Sie uns trotzdem 
die Treue gehalten 
haben. 

Diese Preiserhöhung 
ist von uns nicht ge¬ 
wollt, im Gegenteil. 
Leider aber haben 
Deutschlands Papier¬ 
fabriken in den letzten 
Wochen — einen welt¬ 
weit herrschenden 
Papiermangel ausnut¬ 
zend — ihre Preise so 
satt erhöht, ■: daß 
wir gezwungen waren, 
auch unseren Verkaufs¬ 
preis anzuheben, um 
wenigstens einen Teil 
der gestiegenen 
Kosten auffangen zu 
können. 


Und nicht vergessen: 

Seid Ihr mit dem Heft un¬ 
zufrieden, sagt es uns. 

Seid Ihr zufrieden, sagt 
es weiter. 
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TURBO-TAPE FÜR 
TI 99/4A? 

Ich besitze den TI 99/4A 
seit Oktober 84, ich bin 
auch sehr zufrieden mit 
ihm. Ich wollte fragen, 
ob es Für den TI 99/4A ' 
ohne Extended Basic, 
eine Art ,,Turbolader“ 
gibt? 

Christof Kintzel 
6633 Wadgassen 

Ein Turho-Tape gibt es 
für den TI 99/4A unse¬ 
res Wissens bisher nicht. 
Dabei arbeitet der TI 
99<4A wie viele andere 
Computer auch: Jeder 
Datensatz wird auf Band 
doppelt zur Sicherheit 
gespeichert Bei den 
Turbo-Tape-Programmen 
wird diese Sicherheit zu¬ 
gunsten der Schnellig¬ 
keit vernachlässigt und 
jeder Datensatz nur ein¬ 
mal geschrieben. Dies ist 
natürlich auch beim TI 
9914A möglich und viel¬ 
leicht hören wir darüber 
in der nächsten Zeit von 
einem unserer Leser 
mehr 


KLAPPENFRAGE 


Warum hat der Sprach¬ 
synthesizer eine Klappe? 
Peter Danzeisen 
6000 Frankfurt 70 

Die Klappe am Speech- 
Synthesizer war für be¬ 
sondere Sprachmodule 
vorgesehen. Wohl schon 
während der Entwicklung 
des Speech-Synthesizers 
ist Texas Instruments 
aber wieder davon abge¬ 
kommen, denn auf der 
Platine befindet sich über¬ 
haupt keine Möglichkeit 
zur Anbringung eines 
Steckers. - 


BEFEHLSPROBLEME 


Mit dem Wunsch, meinen 
TI 99/4A endlich in Ma¬ 
schinensprache program¬ 
mieren zu können und so¬ 
mit selber schnelle Pro¬ 
gramme zu schreiben, 
kaufte ich mir das Mini- 
memory Modul. Doch 
schon beim Auspacken 
die erste Enttäuschung. 


Das Handbuch ist in eng¬ 
lisch verfaßt. Nach dem 
Durchblättern die zweite 
Enttäuschung: Wo ist die 
Befehlsliste des TMS 9900: 
Man kann doch nicht oh¬ 
ne diese Liste in Maschi¬ 
nensprache programmie¬ 
ren. Nun meine Frage an 
Sie: Wo bekomme ich die 
Befehlsliste und wie genau 
programmiert man in 
Maschinensprache mit 
dem MINIMEM? 

Günter Voit 
8442 Geiselhöring 

Die Anleitung zum Mini- 
memorv ist zugegebener¬ 
maßen etwas mager Wir 
können Ihnen nur den Rat 
geben, bei einem noch 
mit Tl-Produkten aktiven 
Fachhändler nach einem 
Anleitungsbuch zum Edi¬ 
tor-Assembler zu suchen 
Sehr hilfreich ist auch 
das .,16 Bit Microprozes- 
■ sor Kursbuch" von Texas 
Instruments, welches lei¬ 
der momentan nicht mehr 
erhältlich ist. In diesem 
wird zwar nicht speziell 
auf den TI 9914 A ein ge¬ 
gangen, aber die Arbeits- 
weise des TMS 9900 
wird sehr gut in deutsch 
erklärt. Wir werden in der 
nächsten Zeit in der TI¬ 
RE VUE verstärkt auf das 
Thema Assembler ein¬ 
geh en 


TI STREIKT 


Heute bekam ich zum er¬ 
sten Mal die wirklich gute 
TI-REVUE. Durch die 
große Anzahl der Veröf¬ 
fentlichungen unter der 
Rubrik „Fragen und Ant¬ 
worten“ fühle ich mich 
ermutigt, Ihnen mein Pro¬ 
blem zu schildern: Wenn 
mein TI mit irgend einem 
Modul (meist Ext.-Basic) 
betrieben wird, setzt er 
nach 40 Minuten meist 
aus, d.h. die FCTN sowie 
ALPHA LOCK Tasten 
reagieren beim Drücken 
nicht mehr. Ebenso pas¬ 
siert beim Drücken von 
1, 2, 3, 4, 5 sowie Z, C, 

X, B nichts. Für mich ist 
dann meist das Programm 
weg, da Abspeichern folg¬ 
lich (Csl; DSK1) unmög¬ 
lich ist. Selbst nach Aus- 


und Wiedereinschalten 
der Konsole bleibt der 
Fehler erhalten; er ist nur 
durch ca. lOmaiiges Her¬ 
ausziehen und Wiederein¬ 
stecken des Moduls zu be¬ 
heben. Da diese Gewalt¬ 
tour weder meinen Ner¬ 
ven noch der Konsole gut¬ 
tut, bitte ich Sie freund- 
lichst um Rat. 

Roland Kurz 
8500 Nürnberg 1 

Als erstes würden wir Ih¬ 
nen empfehlen, den Stek- 
ker des Extended Basic 
Moduls und den Modul¬ 
stecker in der Konsole zu 
reinigen Benutzen Sie da¬ 
zu aber auf gar keinen 
Fall Kontaktspray, son¬ 
dern nur ölfreies Reini¬ 
gungsspray aus dem Elek¬ 
tronik-Fachhandel (z.B 
Kontakt WL) Sprühen 
Sie dieses Spray (nicht zu¬ 
viel) auf die Kontakte des 
Moduls und wischen Sie 
dann mit einem nicht fa¬ 
sernden Tuch den Schmutz 
ab Zum Putzen des Mo¬ 
dulsteckers in der Konso¬ 
le können Sie einen klei¬ 
nen Holzstab zu Hilfe neh¬ 
men, damit Sie den Stek- 
ker auch innen durch den 
Modulschacht erreichen. 
Hilft Ihnen das nicht wei¬ 
ter, sollten Sie einmal ein 
anderes Extended Basic 
Modul von einem Bekann¬ 
ten probieren. Hilft das 
auch nicht, müssen Sie 
wohl oder übel Ihre Kon¬ 
sole zu Texas Instruments 
zur Reparatur einschicken. 
Wenn es hilft; ist Ihr Ex¬ 
tended Basic Modul defekt. 


KOPIEREN? 


Aufgrund Ihres Artikels 
„Floppy für unter 400 
DM“ in Heft 1/84 der TI¬ 
RE VUE habe ich mir vor« 
kurzem das im Artikel ge¬ 
nannte BASF-Laufwerk 
6106 zugelegt. Nachdem 
ich das Laufwerk wie be¬ 
schrieben angeschlossen 
halte, mußte ich leider 
feststellen, daß das 
Kopieren einer Diskette 
mit Hilfe des Diskmana¬ 
gers 2 nicht möglich war. 
Das BASF-Laufwerk war 
dabei als Laufwerk 2 co¬ 
diert! Nach einigen Stun- 
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den intensiver Fehlersu¬ 
che kam ich zu folgender 
Erkenntnis: Im Einzelbe¬ 
trieb funktionierte das 
BASF-Laufwerk (codiert 
als Disk 2) ohne Fehler, 
sobald ich aber das TI- 
Laufwerk an das Daten¬ 
kabel der Diskettensteuer¬ 
karte anschließe, kann ich 
Daten nur noch vom TI- 
Laufwerk erhalten. Der 
Versuch, den Katalog ei¬ 
ner im BASF-Laufwerk 
enthaltenen Diskette zu 
erhalten, führt z.B. zur 
Fehlermeldung “06”, also 
“keine Diskette“ bzw. 
“kein Antrieb“. Da ich 
das Laufwerk gebraucht 
gekauft habe, nehme ich 
an, daß eine oder mehrere 
Brücken/Reiter, wie sie 
z.B. zur Codierung des 
Laufwerks benutzt wer¬ 
den, falsch gesteckt sind. 
Meine eigenen Kenntnisse 
in diesem Punkt sind lei¬ 
der mehr als mangelhaft, 


Leserbriefe sind uns 
Haben Sie technische Frag« 
Sie uns das auch. 
Postfach 1107, 

ACH? 

In wenigen Wochen steht 
Jeden Dienstag von 1 
Rufnummer 0731/332 


so daß ich Sie bitten möch¬ 
te, mir, falls ipöglich, die 
Positionen der Brücken 
auf der Laufwerksplatine 
mitzuteilen. Falls dies 
nicht geht, wäre ich Ihnen 
für eine weiterführende 
Information (z.B. eine 
Kontaktadresse oder ähn¬ 
liches) sehr dankbar. 
Norbert Markoswski 
4400 Münster 

Der Fehler kann daran 
liegen, daß Sie die Ab-' 
schlußwiderstände nicht 
aus dem Laufwerk in der 
P-Box, wie in der Anlei¬ 
tung zum Disketten-Lauf- 
werk von Texas Instru¬ 
ments beschrieben, ent¬ 
fernt haben. Wenn das 
Laufwerk alleine einwand¬ 
frei arbeitet, liegt es be 
stimmt nicht an den 
Jumpern, sondern höch¬ 
stens noch an den Ver¬ 
bindungskabeln. 
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DREIMAL M 

Ich hätte folgende Fragen 
zu der Bauanleitung Für 
eine 64K-Erweiterung Für 
200 DM (Ausgabe 3/84): 

1. Ist ein Anschluß der 
Speichererweiterung auch 
dann möglich, wenn ich 
nur das MM-Modul besitze, 

2. oder kann die Erweite¬ 
rung mittels MM-Modul 
nur durch Assembler an¬ 
gesprochen werden? 

3. Stehen für dessen Be¬ 
nutzung die gesamten 
64K zur Verfügung, oder 
können nur 24K genutzt 
werden - in der Anleitung 
zum MM ist von einem 
24K-Segment bei ange¬ 
schlossener Erweiterung 
die Rede. 

4. Können Sie mir einen 
Handel nennen, über den 
ich die Platine beziehen 
kann? 

Siegfried Kretzschmar 
5800 Hagen 1 


immer willkommen. 

*n und Probleme, schreiben 
(\btlg. Leserbriefe, 

8044 Lohhof. 

rUNG! 

unser ,,heißes Telefon!“. 

5 bis 19 Uhr unter der 
20. Unbedingt notieren! 

Selbstverständlich ist ein 
Anschluß der Speicherer¬ 
weiterung auch mit dem 
Mini-Memory möglich 
Die komplette Speicher¬ 
erweiterung ist mittels 
Assembler ansprechbar 
Aus dem TI-Basic können 
Sie die Speichererweite¬ 
rung nützen zum Speichern 
von Daten und Program¬ 
men. wie es im Mini- 
Memcrv-Handbuch be¬ 
schrieben ist Die Speicher¬ 
erweiterung ist in zwei 
Teile unterteilt (von der 
CPU-Adressierung her be¬ 
trachtet). die niedrige 
Speichererweiterung um¬ 
faßt <V KByte und liegt 
2000-3FFF. die hohe Spei¬ 
chererweiterung liegt auf 
der A dresse A 000-FFFF 
und umfaßt insgesamt 
24Byte. Dies ist im MM- 
Handbuch als 24K-Seg- 
ment bezeichnet Wie man 
aus dem TI-Basic auch 


auf die niedrige Speicher¬ 
erweiterung über das MM 
zugreifen kann, obwohl 
es nach dem Handbuch 
des MM nicht geht, hat 
Armand Marx in der letz¬ 
ten T/-REVUE beschrie¬ 
ben 

LANGGESUCHTES 

ZUBEHÖR 

Als Texas Instruments mit 
dem TI 99/4A Ende 1983 
in den letzten Zügen lag. 
nutzte ich die Gelegenheit 
und kaufte mir für 248,- 
DM eine Konsole und ein 
Kassettenrekorderkabel. 
Leidergab es lange kaum 
Zubehör zu kaufen. z.B. 
ein Extended Basic Mo¬ 
dul. In Ihrer Ausgabe 
Nr. 3 haben nun verschie¬ 
dene Firmen all das lang¬ 
gesuchte wieder angebo- 
ten. mir fehlt das Wissen 
übereinen sinnvollen Aus¬ 
bau des Systems. Als erstes 
möchte ich mir das Ex- 
Basic Modul kaufen. Lei¬ 
der ist in den Prospekten 
nie beschrieben, ob man 
jeweils die Erweiterungs¬ 
box benötigt. Gleichzeitig 
werden für mich nicht im¬ 
mer verständliche Aus¬ 
drücke benutzt. Verschie¬ 
dene Module werden als 
extern oder/und intern 
verkauft. Kann man. 
wenn man das neu auf 
dem Markt befindliche 
Assemblerpaket hat, das 
System weiter ausbauen? 
Es gibt noch viel mehr 
Fragen.. .. 

Ralf Petersen 
3108 Winsen 

Das Extended Basic ist in 
jedem Fall eine lohnende 
Anschaffung Ihre Verwir¬ 
rung bei den internen und 
externen Angeboten kön¬ 
nen wir verstehen, hier 
scheint so manches nicht 
geklärt zu sein Üblicher¬ 
weise redet man von In¬ 
tern, wenn das Gerät in 
die P-Box oder direkt in 
die Konsole kommt Ex¬ 
tern sind Geräte wie Spei¬ 
chererweiterung, oder 
RS232, die neben dem 
TI 99/4A in kleineren se¬ 
paraten Gehäusen unter¬ 
gebracht sind. Wobei ja 
dann die P-Box auch ex¬ 


tern wäre, alles klar? 

Nein? Im Zweifelsfall fra¬ 
gen Sie den Händler ge¬ 
nau, ob das Gerät für die 
P-Box ist oder eigenstän¬ 
dig funktioniert. Bei den 
Modulen benötigen nur 
LOGO II(Speichererwei¬ 
terung), Tl-Writer und 
Editor/Assembler/Spei¬ 
chererweiterung und Disk- 
Controller mit Laufwerk) 
besondere Erweiterungen 
Eine RS232-Schnittstelle 
brauchen Sie, wenn Sie ei¬ 
nen Drucker anschließen 
wollen Extended Basic 
und das Mini-Memory 
können die Speichererwei¬ 
terung nutzen, brauchen 
sie aber nicht unbedingt 
Ein Diskettenlaufwerk ist 
von jedem Modul aus an¬ 
sprechbar. das Daten spei¬ 
chert Wenn Sie eine Spei¬ 
chererweiterung haben, 
brauchen Sie die Hard¬ 
wareerweiterung des 
neuen Assemblerpaketes 
für Extended Basic der 
Fa. Radix nicht. Wenn Sie 
noch weitere Fragen ha¬ 
ben, wir sind gern bereit, 
diese zu beantworten. 

PRÜFMODUL - 
WO GIBT ES DAS? 

Bei meinem TI 99/4A 
mit Peripheriebox, Dis¬ 
kette und 32K-Erweite- 
rung ist die Einsteckkarte 
mit paralleler und seriel¬ 
ler Schnittstelle nicht mehr 
in Ordnung. Wenn ich den 
Drucker anspreche, be¬ 
komme ich die Meldung 
“Drucker nicht angeschlos¬ 
sen“. Der Drucker mit pa¬ 
ralleler Centronic-Schnitt- 
stelle läuft an einem ande¬ 
ren TI 99/4A einwandfrei. 
Wahrscheinlich habe ich 
beim Herausziehen der 
Schnittstellenkarte nicht 
lange genug gewartet 
(5 Minuten) oder die Pe¬ 
ripheriebox war noch an¬ 
geschaltet, so daß der pa¬ 
rallele Ausgang (PIO) 
nicht mehr läuft. Bitte tei¬ 
len Sie mir mit, ob Ihnen 
Erfahrungen über diese 
Fehler vorliegen. Beson¬ 
ders interessiert mich: 

„Wie kann ich feststellen, 
was kaputt ist? “ Wie ich 
hörte, gibt es ein Modul 
von Texas zur Selbstprü¬ 


fung des TI 99/4A und 
der Pe'ripheriebox. Kön¬ 
nen Sie mir einen Tip ge¬ 
ben, wer das Modul liefert, 
und was es kostet oder 
wie und wo kann eine 
Reparatur schnell und 
preisgünstig erfolgen? 
Günter Steinmüller 
Rüsselsheim 

Ein Diagnose-Modul für 
den TI 99/4A gibt es 
wohl bei Texas Instru¬ 
ments, aber es ist unse¬ 
res Wissens nicht im Han¬ 
del erhältlich. Auch ist 
das Modul nur für die 
Konsole, in der P-Box 
kann damit nichts über¬ 
prüft werden. Repara¬ 
turen führt Texas Instru¬ 
ments selber aus. Bevor 
Sie Ihr Gerät aber zur 
Reparatur einschicken, 
sollten Sie in jedem Fall 
noch einmal überprüfen, 
ob die P-Box richtig am 
Rechner angeschlossen ist, 
und die RS232-Karte sau¬ 
ber in der P-Box steckt. , 
Wollen Sie zur Selbsthilfe 
greifen (das sollte aber 
nur jemand tun, der viel 
Erfahrung mit dem Aus¬ 
löten von ICs aus doppel¬ 
seitigen Platinen hat!), 
so tippen wir auf die 
74LS251 und 74LS259 
(je nur einer auf der Karte 
en thalten) Diese ICs 
scheinen etwas empfind¬ 
lich zu sein, haben sie 
doch bei einigen Versu¬ 
chen der Redaktion, die 
alle nicht zur Nachah¬ 
mung empfohlen sind, 
schon ab und zu ihren 
Geist aufgegeben. ■ 

RGB-ANSCHLUSS 
FÜR TI? 

1. Gibt es eine Schaltung 
zum Anschluß eines Fern¬ 
sehers mit blau/grün/rot- 
Eingang an den TI? Z.B. 
Grundig P 40-145. 

2. Gibt es eine Schaltung 
zum Anschluß eines Farb¬ 
fernsehers ohne Monitor¬ 
eingang an den TI? (Direkt 
natürlich, nicht über HF). 

3. Kann das laufende 
Stocken beim Ablauf iei- 
nes Programmes (String- 
Speicher) durch den Ein¬ 
bau eines Zusatz-Speichers < 
bzw. Speichererweiterung « 
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abgestellt werden? Wenn 
ja, was bietet sich da an? 

4. Ist die unter 3 geschil¬ 
derte Eigenart beim Ein¬ 
satz eines Mini-Memory 
weg oder ist dies ohne 
Einfluß? 

Allgemeine Fragen: Kön¬ 
nen Sie einen Artikel 
über mögliche Erweite¬ 
rungen bringen mit Er¬ 
klärungen, z.B. was ist 
ein Mini-Memory, wo¬ 
zu dient es, was ist außer¬ 
dem erforderlich? 

Ulrich Neumann 
4780 Lippstadt 

Einen RGB-Modulator 
gibt es bisher noch nicht 
für den TI 99/4A, je¬ 
doch haben einige Fach¬ 
händler diesen in ihren 
Listen angekündigt. Der 
direkte Anschluß eines 
Farbfernsehers ist je 
nach Fabrikat des Fern¬ 
sehers theoretisch wohl 
möglich, aber wohl nur 
durch einen Fernsehtech¬ 
niker zu realisieren. Soll¬ 
te sich Ihr Fernseher mit 
einem ,,Composite-Video- 
Eingang“ ausrüsten lassen, 
so können Sie von Texas 
Instruments einen Schal¬ 
tungsvorschlag erhalten, 
der dann in den normalen 
Modulator eingebaut wird. 
Selbstbau ist aber auch 
hier notwendig. Unter Ex- 
tended Basic bringt Ihnen 
eine Speichererweiterung 
in jedem Fall Vorteile in 
Bezug auf das Warten bei 
einer ,,Garbage Collec¬ 
tion“, wie man das Aus¬ 
sortieren von ungültigen 
Strings nennt, da hier das 
Programm und die nume¬ 
rischen Variablen dann in 
der Speichererweiterung 
abgelegt sind. So steht für 
die Strings ein erheblicher 
größerer Platz zur Verfü- ' 
gung. Das Mini-Memory 
hilft Ihnen hier nicht wei¬ 
ter. Bezüglich den Erwei¬ 
terungen werden wir uns 
in den nächsten Ausgaben 
näher mit einigen Artikeln 
beschäftigen. Die Masse 
der Angebote macht aber 
eine schnelle und umfas¬ 
sende Information nahe¬ 
zu unmöglich, würde ja 
auch mehrere Hefte der 
TI-REVUE füllen. 

* 


MINIMEM UND 
SCHALTPLÄNE 


Ende Juli 1984 habe ich 
die erste Nr. Ihrer Zeit¬ 
schrift TI-REVUE gekauft 
und habe sie ganz gut be¬ 
funden. Ich habe einige 
Fragen: Was für Vorteile 
bietet das Minimem gegen¬ 
über dem Editor/Assemb¬ 
ler-Paket, wenn 32K- 
Speichererweiterung vor¬ 
handen ist? Ist für Editor/ 
Assembler unbedingt Disk 
nötig? Wo sind Schaltplä¬ 
ne für das TI 99/4A- 
System (einschließlich Pe¬ 
ripherie-Box) erhältlich? 
Klaus Kromer 
7770 Überlingen 

Schaltpläne für den TI 
99/4A gibt es bei Texas 
Instruments Deutschland. 
Dort waren auch einmal 
Schaltpläne für die P-Box 
erhältlich, ob es sie heute 
noch gibt, können wir 
nicht sagen. Für den 
Editor/Assembler ist un¬ 
bedingt ein Diskettenlauf¬ 
werk notwendig. Die Vor¬ 
teile des MM gegenüber 
dem EditorIAssembler 
liegen in zusätzlichen na¬ 
hezu 8KByte RAM, die 
von Assemblerprogram¬ 
men genutzt werden kön¬ 
nen. Mit dem Editor/ 
Assembler kann allerdings 
wesentlich komfortabler 
in Maschinensprache ge¬ 
arbeitet werden . 

* 


ZEILENSPRUNG 


Ich bitte um die Beant¬ 
wortung folgender Fra¬ 
gen: Vorausschicken muß 
ich, daß ich mit zwei 
TI-99/4A arbeite ein¬ 
schließlich zwei Bildschir¬ 
men + Kassettenrecorder 
+ int. Diskettenlaufwerk 
+Schönschreibdrucker 
„Silver Reed EC 42 C“. 
Ich benutze die Anlage 
teilweise auch beruflich. 
Außerdem bin ich kein 
Jüngling mehr und habe 
deshalb ein bißchen 
Schwierigkeiten mit der 
ganzen Programmierefei. 
Frage 1) “DELETEN“: 
Um eine Zeile aus einem 


Programm zu entfernen, 
genügt es, wenn man 
FCTN 1 drückt. Was oder 
welcher Befehl ist not¬ 
wendig, um aus einem 
Programm mehr als eine 
Zeile zu „deleten“? In 
TI-Basic und in Extended 
Basic. 

Frage 2): Nochmals 
MBI-Interface^-Im Heft 
3/84 war ein Beitrag eines 
Herrn Werner Hassler. Die¬ 
ser hat den gleichen 
Schönschreibdrucker wie 
ich und ich würde gern 
zwecks Gedankenaus¬ 
tausches mit ihm in Ver¬ 
bindung treten. Können 
Sie mir seine genaue An¬ 
schrift bekanntgeben oder, 
falls nicht möglich, ihn 
um Rückantwort an mei¬ 
ne Adresse bitten? 
osef Bachmaier 
ostfach 2221,D 
6000 Frankfurt 

Um mehr als eine Zeile im 
Programm zu löschen, 
gehen Sie wie folgt vor: 
Zeilennummer eintippen 
und mit Cursor unten 
(Functn X) Zeile auf den 
Bildschirm holen. Dann 
Taste ERASE (Functn 3) 
drücken, der Text ver¬ 
schwindet. Nun wieder 
Cursor nach unten 
(Functn X) drücken und 
die Zeile wird im Pro¬ 
gramm gelöscht, die näch¬ 
ste erscheint auf dem Bild¬ 
schirm. Das Spiel können 
Sie solange wiederholen, 
bis alle gewünschten 
Zeilen gelöscht sind. Das 
Tl-Journal können Sie 
über die Firma Hegasoft, 
Postfach 1107, 8044 
Unterschleißheim, be¬ 
ziehen. 


DRUCKERFRAGEN 


Ich bin seit ca. 1 Jahr im \ 
Besitz eines Seikosha \ 
GP-1000 Mark II, den ich 
an das MBI der Fa. Klein 
angeschlossen habe. Beim 
Normal- und Breitdruck 
ergeben sich keine Pro¬ 
bleme. Wenn ich jedoch 
in die Betriebsart „graphi¬ 
sches Darstellen“ umschal¬ 
te CHR$(8), druckt der 
Seikosha mir bei folgen- - 
dem Listing 
200 OPEN# 1:“RS232. 

BA=4800.DA=8“ 


210 PRINT# 1:CHR$(8) 
215 FOR X=1 TO 188 
220 PRINT# 1 :CHR$ 
(170):::NEXT X 
nur 80 Punktspalten in 
einer Zeile aus, dann geht 
er in die nächste Zeile. 

Nun meine Frage: Warum 
druckt der Drucker nicht 
alles in eine Zeile? Was 
ich auch tue, er druckt 
mir, in der Betriebsart 
„graphisches Darstellen“, 
nur 80 Punktspalten aus. 
Liegt nun irgendwo ein 
Defekt vor oder was habe 
ich falsch gemacht? Ich 
habe außerdem herausge¬ 
funden, daß in Ihrer De¬ 
zemberausgabe, in der 
die richtigen Stellungen 
der DIL-Schalter im MBI 
geschrieben sind, alle auf 
ON geschalteten Schalter 
auf OFF müssen und um¬ 
gekehrt. 

Thomas Zimmermann 
6200 Nordenstadt 
Die RS232-Schnittstelle 
des TI 99/4A besitzt ein 
komfortables Betriebs¬ 
system. Dieses sendet am 
Ende eines Datensatzes 
jeweils ein CHR$( 13) 
und ein CHR$( 10), auch 
als CR und LF bezeich¬ 
net. CR bedeutet dabei 
Wagenrücklauf und LF 
Zeilenvorschub. Dies ver¬ 
anlaßt den Drucker, wie¬ 
der am Anfang einer 
neuen Zeile anzufangen. 
Wird normaler Text ge¬ 
druckt, sind diese beiden 
Zeichen wichtig, im Gra¬ 
fikmodus stören sie aber 
meist, wie in diesem 
Fall. Die Länge von 80 
Zeichen resultiert aus ei¬ 
ner weiteren Eigenschaft 
der RS232-Schnittstelle: 
Wird keine Datensatzlänge 
angegeben, wird ein 
Fehlerwert von 80 Zei¬ 
chen angenommen. Am 
einfachsten lösen Sie das 
Problem, wenn Sie die 
Zeile 200 wie folgt än¬ 
dern: 

200 OPEN#lfRS232. • 
BA=4800.DA=8. CR “. 

Das. CR veranlaßt die RS 
232-Schnittstelle, kein 
CR und LF auszusenden. 
Wollen Sie dann eine neue 
Grafikzeile beginnen, müs¬ 
sen Sie diese Zeichen mit 
PRINT#\:CUR$(13); 
CHR$( 10) an den Drucker 
ausgeben. 
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LESERBRIEFE 


JOYSTICK-ABFRAGE 


Ich besitze einen TI 99/ 

4A und Extended Basic. 
Und möchte eine Joystick¬ 
abfrage ohne Call Joyst. 
(...), sondern mit call 
Peek (A,B) durchführen. 

Ist das möglich, wenn ja, 
welchen Wert muß die 
Speicherstelle A haben? 

Ich bitte Sie höflichst, 
dieses Problem in Ihrer 
Zeitschrift zu behandeln, 
oder mich schriftlich in 
Kenntnis zu setzen. Hier 
noch ein Tip für TI 99/4A: 
Eine Computerzeitschrift 
verneinte eine Anfrage ei¬ 
nes Lesers, der wissen woll¬ 
te, ob der “NEW“-Befehl 
als Statement mit Exten¬ 
ded Basic, ohne Memory- 
Expansion möglich sei. Es 
ist es doch. Hier mein Vor¬ 
schlag (Listing), zu New 
as Statement: 

1 ON BREAK NEXT 


Restliche Programmzeilen 
m 

5ÖÖÖ PRINT “WOLLEN 
SIE NOCH EIN SPIEL?” 
:: CALL KEY(0,K.S):: 

IF K = 74 THEN 1 ELSE 
IF K = 78 THEN 5010 
ELSE 5000 

5010 ON ERROR 5030 
5020 RUN “ ” 

5030 END. 

Erklärung: 5000 = Abfra¬ 
ge, 5010 vermeidet die 
Ausgabe “1/0 ERROR 50 

in.“,5020 RUN“” 

löscht das Programm. 
Werner Achleitner 
A9423 St. Georgen 
Vielen Dank für den Tip 
Er funktioniert aber nur, 
wie Sie schon schrieben, 
ohne Speichererweiterun^ 
Mit Speichererweiterung 
kann sich der Rechner 
aufhängen! Nun aber zur 
Joystick-Abfrage: Diese 
wird im TI 99 /4A durch 
die sogenannte CRU 
durchgeführt, dies ist eine 
spezielle serielle Schnitt¬ 
stelle in der CPU Somit 
ist eine Abfrage mit Call 
PEEK nicht möglich Das 
Gleiche gilt übrigens auch 
für die Tastatur. 


MODUL LÖSCHBAR? 


Kann der Inhalt eines TI- 
Steckmoduls gelöscht und 


ein anderes Programm 
eingegeben werden und 
wie macht.man das? Es 
gibt genügend preiswerte 
Steckmodule im Handel 
und man hätte vielleicht 
die Möglichkeit, häufig be¬ 
nutzte Programme (Da¬ 
ten oder Textprogramme) 
schneller zu laden, als mit 
einem Kassettenrecorder, 
den wohl die meisten als 
Massenspeicher besitzen, 
möglich ist. Kennen Sie 
Firmen, die für TI 99/4A 
Steckmodule hersteilen 
oder solche mit selbst ent¬ 
wickelten Programmen 
versehen können? Gibt es 
Datenprogramme, die nur 
mit der Tastatur. XB- , 
Modul und 32K-speicher- 
erweiterung lauffähig sind? 
Ich möchte die Daten nur 
auf dem Bildschirm lesen 
können und in der Lage 
sein, die Daten schnell zu 
finden. Leider sind die TI- 
Module Datenverwaltung 
und Analyse/Statistik 
sowie Text- und Dateiver¬ 
waltung nur begrenzt er¬ 
setzbar (können nicht auf 
die Speichererweiterung 
zugreifen). Diese Module 
sind sonst hervorragend. 
Heinz Bernhardt 
5060 Bergisch-GIadbach2 
In den Modulen von Texas 
Instruments sind ROM 's 
bzw. GROM's eingebaut, 
die sich nicht löschen las¬ 
sen. Leider ist die von Ih¬ 
nen vorgeschlagene preis¬ 
günstige Lösung daher 
nicht möglich. Größere 
Datenverwaltungen , die 
unter X-Basic laufen und 
mit Kassettenrekorder 
einsetzbar sind, kennen 
wir leider im Moment 
nicht. Das liegt wohl auch 
an der relativ langatmigen 
Speicherprozezedur von 
Datensätzen auf dem Kas¬ 
settenrekorder. Die Modu¬ 
le Datenverwaltung und 
Analyse, Statistik und 
Text- und DcCteiverwaltung 
besitzen hier eine besonde¬ 
re Routine zum Speichern 
und Laden der Daten. Prin¬ 
zipiell ist es möglich, eige¬ 
ne Programme auf Modul 
zu bringen, besonders 
wenn sie in TI-Basic ge¬ 
schrieben sind. Die Fa. 
Sunware in den USA bie¬ 
tet so etwas an, ist aber 
für den einzelnen Anwen¬ 


der viel zu teuer, da sich 
diese Firma an kommer¬ 
zielle Softwareanbieter 
wendet. 


TI 99/4A INTERN 


207 Seiten, zahlreiche 
kommentierte Listings, 
kart. DM 38 — 

ISBN 3-88180-008-5 
Verlag für Technik und 
Handwerk 
Baden-Baden 
Vertrieb Fa. Radix Büro¬ 
technik, Hamburg 


Wieder einmal hat eine 
sehr zurückhaltende In¬ 
formationspolitik eines 
Heimcomputerherstellers 
nur zeitlich begrenzten 
Erfolg gehabt: In diesem 
Buch sind die kompletten 
kommentierten Listings 
des Betriebssystems des 
TI 99/4A enthalten. 

Dabei wird nicht nur das 
im ROM enthaltene Be¬ 
triebssystem, sondern auch 
der Inhalt der drei GROM’s 
erklärt. Dazu gehört na¬ 
türlich auch der Basicinter- 
preter. Dabei wurde den 
vielen, bisher nicht be¬ 
kannten Routinen wesent¬ 
lich mehr Aufmerksam¬ 
keit geschenkt, als den 
Routinen , die üblicher¬ 
weise nur als Hilfe von 
Assembler-Programmen 
ausgenutzt werden und 
deren Anwendung in Pu¬ 
blikationen von Texas 
Instruments beschrieben 
sind. In den GROM’s ist 
ja eine besonders für den 
TI 99/4A entwickelte 
Programmiersprache mit 
dem Namen GPL (Gra¬ 
phics Programming 
Language) enthalten. 

Da in diesem Buch die In¬ 
halte dieser GROM’s er¬ 
klärt werden, erübrigt es 
sich beinahe zu erwähnen, 
daß hier erstmals auch 
alle GPL-Befehle und de¬ 
ren Aufbau vollständig er¬ 
läutert sind und damit die¬ 
se Sprache dem Anwender 
zugänglich gemacht wird. 
Dieses Buch ist ein Muß 
für jeden, der sich näher 
mit dem Innenleben des 
TI 99/4A beschäftigen will. 
Es erfordert aber vom 
Leser einige Kenntnisse 
in der Maschinensprache 
des TI 99/4A. 
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ERWEITERTES 
EXTENDED BASIC VON 

MECHATRONIC _ 

Es ist kaum zu glauben, 
aber wahr: Von der Sindel- 
fmger Firma Mechatronic, 
dem deutschen Lizenzneh¬ 
mer für das Original TI- 
Extended Basic, kommt 
die Nachricht, daß dieses 
Extended Basic erweitert 
wurde. Die Erweiterung 
umfaßt einen kompletten 
Grafik-Befehlssatz (über 
35 neue Befehle), der 
allerdings nur mit der 
Speichererweiterung nutz¬ 
bar ist. Dabei ist die Gra¬ 
fik sehr schnell und er¬ 
laubt den Zugriff auf den 
ganzen Bildschirm, auch 
wenn im Einzelnen nur 
ein Fenster von 128x120 
Punkten angesteuert wer¬ 
den kann. Das Fenster 
kann aber mehrfach auf 
dem Bildschirm abgebildet 
werden. 

Selbstverständlich ist jeder 
Punkt in diesem Fenster 
einzeln anzusteuern. 

Auch ohne die Speicherer¬ 
weiterung stehen neue Be¬ 
fehle zur Verfügung. An 
erster Stelle ist hier wohl 
eine Hardcopy-Routine 
für Matrixdrucker zu nen¬ 
nen, die natürlich auch 
mit der Grafik nutzbar ist. 
VPEEK und VPOKE las¬ 
sen einen direkten Zugriff 
auf das Ram des Video- 
Controllers zu. Weiter gibt 
es die Möglichkeit, mit 
CALL MOVE den Inhalt 
ganzer Speicherblöcke zu 
verschieben. Zwei zusätz¬ 
liche Befehle ermöglichen 
nun auch mit dem Kasset¬ 
tenrekorder den Zugriff 
auf Maschinenprogramme. 
CALL RESTORE löst das 
leidige Problem, daß im 
bisherigen Basic des TI 
99/4A bei Restore keine 
Variable eingegeben wer¬ 
den konnte, und CALL 
FIND sucht einen String 
in einem Array. Das 
Mechatronic Extended 
Basic plus bietet natürlich 
noch mehr. Sie ist ab 
April 1985 lieferbar und 
wird ca. DM 300,— kosten. 
Besitzer des bisherigen 
Lizenznachbaues von 
Mechatronic können Ihr 
Extended Basic für ca. 

100,— DM bei Mechatro¬ 
nic erweitern lassen. 









80 KB FÜR UNTER 20t 



Kaum ein Bericht hat so große Wellen geschlagen 
wie die 80 Kilobyte für unter 200 Mark 
von Armand Marx in der letzten Ausgabe. Hier nun 
die versprochene Fortsetzung mit Bauanleitung 
und Schaltplan! 
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TIPS & TRICKS 


MARK! 



Zuerst möchte ich vorausstellen, daß 
meine handgestrickte Speicherplatine 
mit dem Tl-Original voll kompatibel 
ist, es also keiner besonderen Befehle 
bedarf, um sie zum Laufen zu brin¬ 
gen. 


Sie läßt sich ebenso von den TI- 
Modulen wie von Basic oder Assemb¬ 
ler-Anwenderprogrammen anspre¬ 
chen. Inzwischen habe ich die Schal¬ 
tung leicht abgeändert und Flip- 
Flops sowie Gatter durch ein 4-Bit- 
Schieberegister Type: 74LS95 er¬ 
setzt. Dies ergibt ein besseres Timing 
und verringert den Kabelsalat auf der 
Platine, kann aber durch Pin-Kompa- 
tibilität mit dem 2fach-Flipflop be¬ 
treffend Spannungsanschlüsse dieses 
auf der Platine ersetzen. 

1. BESCHREIBUNG 


1) Platine aufbauen, genau nach 
Elektor-Angaben Nr. 136 von 
4/82 und Nr. 153 von 9/83 sowie 
Nachlese Nr. 155 von 11/83. 

2) Alle Brücken löten wie im Schalt¬ 
plan von 9/83 eingezeichnet außer: 
Brücke 1-1’ ersetzen durch Brücke 
2-1’ (Anschluß von DBIN) 

Für die Adressdekodierung: 

Neue Brücke löten zwischen 
2+3 und x+y 

(Dekodierung LOW-Memory 
auf 2000) 

(Neue Brücke löten zwischen 
A+B+C+D+F und v+w 
(Dekodierung HIGH-Memory 
auf A000) 

3) Kondensator C5 auf 220pf wie 
im Schaltplan von 9/83 einge¬ 
zeichnet 

4) Trimmer CI habe ich mit gutem 
Ergebnis durch Festkondensator 
68pf ersetzt 

5) Nun gibt es zwei Möglichkeiten: 
4-Bit-Schiebe-Register extern an¬ 
schließen oder um IC22-Fassung 
alle Leiterbahnen absäbeln außer 
Pin7 (Masse) und Pin 14 (+5 Vcc) 

6) Leiterbahn auftrennen ab Pin8 
IC8 (N31) zwischen Ausgang N31 
und Rest. Dazwischen kommt die 
Schaltung, die Texanisch in 
RAM(sch) übersetzt und damit 
die Platine zum Laufen bringt. 

7) Weitere Angaben entnehmen Sie 
aus dem Schaltplan. 

II. WIRKUNGSWEISE _ 

Die Schwierigkeiten bei dynami¬ 
schen RAMs liegen wie gesagt in 
den benötigten Pausen zum 
REFRESH sowie in den PRE- 
CHARGE-Phasen beim Adress- - 
abholen. 

Hierzu kann man den Prozessor stop¬ 
pen, was sich aber negativ auf das 
Zeitverhalten auswirkt. Optimal ist 
die Benutzung der vom Prozessor 
zur Verfügung gestellten Pausen. 

Diese Technik wird hier verwendet, 
das heißt, der Prozessor merkt 
nichts vom Vorhandensein des 
Speichers. Dieser steht aber zur ste¬ 
tigen Verfügung. 


Das spezielle Problem beim 99er ist 
nun, daß er als 16-Bitter meistens 
2 Bytes hintereinander anspricht. 

Bei INTERUPTS (Assembler) kann 
er sich aber auch zwischen 2 Bytes 
einen Befehl abholen. - 
Die Aufgabe des Schieberegisters 
ist es, in beiden Fällen jeweils eine 
Pause von 330ns vor Zugriff einzu- . 
schieben. Dies gibt den RAMs die 
Chance, die jeweils neue Adresse ab¬ 
zuholen. Den REFRESH erledige 
ich direkt über MEMEN und zwar 
unabhängig davon, ob die Platine 
gerade angesprochen wurde oder 
nicht. 

Dies ergibt im ungünstigstem Falle 
eine Zykluszeit von 2/js und ein 
paar Zerquetschte, also 256 Reihen 
mal 2ms ergibt ± 512ms zwischen 
2 Refresh-Zyklen. Wenn man weiß, 
daß 2ms nötig sind und wir etwa 
viermal schneller sind, kann nichts 
passieren. 

Zum Schluß wünsche ich Ihnen 
noch viel Spaß mit Ihrer neuen 
Platine, die jetzt auf 32KB voll 
funktionsfähig ist. 

Im Augenblick schlummern auch 
bei mir noch 32KB ungestört vor 
sich hin. Dieser Zustand wird sicher 
nicht andauern, es gilt nur einen 

Die Platine hat die Bestellnum¬ 
mer EPS 8201 7 von Elektor, 
Elektör- Verlag, Postfach 1150, 

D 5133 Gangelt 1. Zusätzlich 
eine weitere eventuelle Bezugs¬ 
adresse: Edicta-Versand, Linden¬ 
straße25, D 6290 Weilburg- 
Waldheim J 7; 

Weg zu finden, sie optimal zu nut¬ 
zen, der jedermann befriedigt. 
Übrigens gibt es, wie aus dem Schalt¬ 
plan ersichtlich, auch eine Möglich¬ 
keit, die Platine in der TI-Box unter¬ 
zubringen. Eine solche Version ist 
bei mir im Einsatz. Leider war dabei 
die größte Schwierigkeit die Be¬ 
schaffung der entsprechenden 60- 
Pin-Platinenstecker. Nach vergebli¬ 
chem Suchen habe ich diese schließ¬ 
lich selbst gebaut, aus zwei abge¬ 
schliffenen und zusammengeklebten 
Universal-Platinenhälften mit 
2.54 mm Leiterbahnen. Keine 
Arbeit für Neurotiker. 

Zur Peripherie-Box noch eine 
Warnung: ACHTUNG! 

Die Spannungsausgänge in der 
Peripherie-Box (Pin 1,2, 57—60) 
sind entgegen manchen Angaben 
nicht geregelt! 

Bei Direktanschluß machen Sie aus 
Ihrer Platine einen Toaster! Also 
unbedingt Spannungsregelung Zwi¬ 
schenschalten! Dies empfiehlt sich 
auch aufs Wärmste (sic) bei Einbau 
in der Konsole. 


Armand Marx 
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TIPS & TRICKS 


\ 


MINI EXTENDED- 
BASIC 

IN TI-MODULEN 


240 CLOSE Ml 

250 OPEN Ml:"DSK1.PRKDATA",S 
EQUENT1AL,INTERNAL,INPUT ,VA 


RIABLE 

' 

260 

FOR 1=1 

TO R 

270 

PRINT I 


280 

FOR J=1 

TO F 

290 

CALL H( 

1 , 1 0 , J , T ) 

300 

IF T= 1 

THEN 380 

310 

INPUT *4 1 : D , 

320 

PRINT D 

■ 

9 

330 

IF D=-9 

. 9999999999999E 


In Heft 1 hatten wir kurz über eini¬ 
ge versteckte Befehle im Datenver- 
waltungs- und Statistikmodul be¬ 
richtet. Inzwischen überließ uns 
ein interessierter User eine ausführ¬ 
liche englischsprachige Dokumen¬ 
tation dieser Befehle. Die beschrie¬ 
benen Routinen sind sowohl im 
Datenverwaltungs- als auch im 
Statistikmodul enthalten und kön¬ 
nen immer dann, wenn das Modul 
eingesteckt ist, von Basic aus er¬ 
reicht werden. In gewisser Weise • 
könnte man diese Module also als 
Mini-Extended-Basic bezeichnen. 
Nun zu den einzelnen Unterpro¬ 
grammen. 


DAS PREP-UNTERPROGRAMM 


Dieses Unterprogramm wird benutzt, 
um einen definierten Datenbereich 
im VDP-Ram zu definieren. Dieser 
Bereich kann auch von anderen Un¬ 
terprogrammen zur Handhabung 
von Daten benutzt werden. Der 
Aufruf erfolgt über ein CALL- 
statement in der folgenden Form: 
CALL P(V), 

wobei V der Anzahl der zu reservie¬ 
renden Bytes (numerischer Wert) 
entspricht. 

V ist eine numerische Konstante, 


Variable oder ein Ausdruck, der die 
Anzahl der Bytes, die für den Daten¬ 
bereich zu reservieren sind, festlegt. 
Die Maximalgröße, die vom Daten¬ 
verwaltungsmodul aus'festgelegt 
werden kann, ist 12048 Bytes. 

Wenn jedoch der Disc-Kontroller 
angeschlossen ist, benötigt dieser 
einige Bytes VDP-Ram. In diesem 
Fall reduziert sich die Maximalan¬ 
zahl der zu reservierenden Bytes 
auf 10000. Beim Statistikmodul 
sind es 7440 Bytes ohne Disc- 
Kontroller und 5392 Bytes mit 
dem Disc-Kontroller. Die größtmög¬ 
lichen Werte, die Sie mit dem Prep- 
Unterprogramm festlegen können, 
ersehen Sie aus der nachfolgenden 
Tabelle: Wenn kein Disc-Kontroller 
angeschlossen ist oder nach der fol¬ 
genden Eingabe 

Call-Files(O) 13 820 

Call-Files(l) 12 768 

Call-Files(2) 12 250 

usw. (Nicht bei allen Kontrollern 
möglich) 

Für jedes zusätzliche File müssen 
Sie 5 18 Bytes abziehen-. Wenn V 
größer als der größte erlaubte Wert 
ist, wird ein „Not enough memory“ 
angezeigt. Um Probleme mit Variab¬ 
len, die vielleicht anderweitig schon 
benutzt wurden, zu vermeiden, soll¬ 
te ein Call Prep jeweils als Direktbe¬ 


fehl durchgeführt werden, und die¬ 
sem Befehl ein New Befehl folgen. 
Wenn der obengenannte Prep-Befehl 
aus einem Basic-Programm heraus 
aufgerufen wird, wird die Fehlermel¬ 
dung „illegal Call“ angezeigt. 

Mit dem Prep-Comand reservierte 
Datenbereiche bleiben erhalten, 
bis Basic mittels bye oder ShiftQ 
(Quitt) verlassen wird. 


DAS LOAD-UNTERPROGRAMM 


Dieses Unterprogramm wird benutzt, 
um Daten-Files von einem Extern¬ 
gerät in den Speicherbereich, der 
vorher mit dem Prep-Unterprogramm 
reserviert wurde, hineinzuladen. 

Der Aufruf erfolgt in der Form: 

Call L (V$,V) 

V=Rückgabevariable (numerischer 
Wert) 

VString kann ein Strinkonstante- 
Variable oder ein Stringausdruck 
sein, der die Datei, die zu laden ist, 
bezeichnet. V ist ein numerischer 
Ausdruck, in welchem die Load- 
Routine mittels eines Codes angibt, 
ob das Einladen der Daten erfolg¬ 
reich war oder nicht. 0 bedeutet, daß 
es einen Fehler gegeben hat. Jeder 
andere Wert bedeutet, daß das Ein¬ 
laden erfolgreich war. Mögliche Feh¬ 
lerursachen sind: 

1. Die angegebene Datei oder das 
Gerät existiert nicht. 

2. Es wurde kein Datenbereich mit¬ 
tels Call P vorbereitet. 

3. Der definierte Dateibereich ist zu 
klein. 

4. Sonstige Ein- und Ausgabefehler. 

Hinweis: Datenverwaltung-Statistik 
und die Load-und Save-Routinen 
benutzen Dateien im Programmfpr- 
mat. Dies bedeutet, daß die Datei¬ 
länge 256 Datensätze beträgt. 

Aus diesem Grund wird die tatsäch¬ 
liche Größe einer Datei auf ein 
Vielfaches von 256 aufgerundet. Dies 
bedeutet, daß es möglich sein kann, 
eine Datei zwar abzuspeichem, je¬ 
doch später nicht mehr in den glei¬ 
chen Speicherbereich zurückzuladen. 


DAS SAVE-UNTERPROGRAMM 


Dieses-Unterprogramm wird benutzt, 
um Dateien aus dem mittels dem 
Prep-Unterprogramm reservierten 
Speicherbereich in ein externes Ge¬ 
rät abzuspeichern. 

Der Aufruf erfolgt in der Form 
Call S (V$,V) wobei V$ gleich Da¬ 
teiname (Stringausdruck), V=Rück- 
gabevariable (numerischer Ausdruck) 
ist. VString ist ein Stringkonstante-, 
Variable oder Ausdruck, die die 
Datei, die abgespeichert werden soll, 
angibt. V ist ein numerischer Aus¬ 
druck, in welchem das Unterpro- 
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IO REM MANUELL EINGEBEN: 

20 REM CALL FILES <1) 

30 REM CALL P(IOOOO) 

40 REM NEW 
50 REM RUN 

lOO CALL L("DSK1.PRKFILE",C) 
HO IF C=0 THEN, 540 
120 OPEN #1 :."DSK1 . PRKHEADER" 
,SEQUENTIAL, INTERNAL,OUTPUT , 
VARIABLE 

130 CALL H(1,1,0,F«) 

140 CALL H<1,5,0,F) 

150 CALL H(1,6,0,R) 

160 PRINT «l:F«,F,R • 

170 PRINT FS,F,R 
180 FOR 1=1 TO F 
190 CALL H‘<1,9,I,F*> 

200 CALL H(1, 10, I , T) 

210 CALL H <1, 11, I,W) 

220 IF TOI THEN 250 
230 S=S+W+1 
240 GOTO 260 
250 S = S + 9 

260 CALL H <1, 12, I , D) 

270 PRINT 441 ,REC i:F$,T,W,D 
280 PRINT f*;t;w;d 
290 NEXT I 
300 CLOSE-#1 

310 OPEN 44 1 : " DSK 1 . PRKDAT A " , S 

EQUENTIAL,INTERNAL,OUTPUT,VA 

RIABLE S+2 

320 FOR 1=1 TO R 

330 PRINT I 

340 FOR J=1 TO F 

350 CALL H(1,10 , J , T ) 

360 IF T=1 THEN 430 
370 CALL G<1,I,J,C,D) 

380 IF C=0 THEN 400 

390 D=—9.9999999999999E+127 

400 PRINT 441 :D 

410 PRINT D 

420 GOTO 480 

430 CALL G< 1,I,J,C,F$) 

440 IF C=0 THEN 460 
450 F$=“ " 

460 PRINT #l:FS 
470 PRINT F*f" M ; 

480 NEXT J 
490 PRINT 4*1:" " 

500 PRINT 
510 NEXT I 
520 CLOSE #1 
530 STOP 

540 PRINT "ERROR IN LOADING 
PRK FILE !!"5"LADEFEHLER PRK 
FILE !!" 

550 STOP 


IO REM MANUELL EINGEBEN: 

20 REM CALL FILES(l) 

30 REM CALL P<10000) 

40 REM NEW 
50‘REM RUN 

lOO OPEN 441:"DSK1.PRKHEADER M 
,SEQUENTIAL,INTERNAL,INPUT , 
VARIABLE 

1IO INPUT #i:f«,f,r 
120 PRINT F*,F,R 
130. CALL H<0,1,0,F«) 

140 FOR 1=1 TO F 

150 INPUT 44 1 , REC i:F#,T,W,D 

160 print f$;t;w;D 
170 CALL H<9,9,I,F*> 

180 CALL H(O,IO,I,T) 

190 IF T=4 THEN 220 
200 CALL H(O,11,I,W) 

210 IF T< 3 THEN 230 
220 CALL H(O, 12, I , D) 

230 NEXT I 
240 CLOSE #1 

250 OPEN ♦41:" DSK 1 . PRKDATA" , S 
EQUENTIAL, INTERNAL, INPUT , VA 
RIABLE 

260 FOR 1=1 TO R 
270 .PRINT I 
280 FOR J=1 TO F 
290 CALL H(1,10,J,T) 

300 IF T=1 THEN 380 
310 INPUT 44l:D, 

320 PRINT DJ 

330 IF D=-9.9999999999999E+1 

27 THEN 360 

340 CALL G(0,I,J,D) 

350 GOTO 440 

360 CALL G(2,I,J,D) 

370 GOTO 440 
380 INPUT 441 :F«, 

390 PRINT F$; H 

400 IF F*= H " THEN 430 

410 CALL G<0,I,J,F*> 

420 GOTO 440 

430 CALL G<2, I , J,F*) 

440 NEXT J 
450 INPUT 441 : F* 

460 PRINT F* 

470 NEXT I 
480 CLOSE 441 

490 CALL S("DSK1.PRKFILE",C) 

500 IF C THEN 520 

510 PRINT "ERROR IN SAVING P 

RKFILE"i"SPEICHERFEHLER PRKF 

ILE" 

520 STOP 


» 
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TIPS & TRICKS 


gramm anzeigt, ob das Abspeichern 
erfolgreich war oder nicht. V=Null 
bedeutet, daß es einen Fehler gege¬ 
ben hat. Jeder andere Wert bedeu¬ 
tet, daß das Abspeichem erfolgreich 
war. Aus folgenden Gründen kann 
es zu Save-Fehlem kommem- 

1. Das angesprochene Gerät existiert 
nicht. 

2. Der Datenbereich wurde nicht 
gefunden. 

3. Sonstige Ein- und Ausgabefehler. 


DAS ACCEPT-UNTERPROGRAMM 

Dieses Unterprogramm wird dazu 
benutzt, Dateneingaben von der 
Tastatur aufzunehmen und anschlie¬ 
ßend an einer genau bezeichneten 
Bildschirmposition wiederzugeben. 

Die Unterprogrammroutine wird 
mittels Call A aufgerufen und kann 
in folgenden Formen geschrieben 
werden: 

1. Call A (Y,X,W,C,V,L,H) 

2. Call A (Y,X,W,C,V) 

3. Call A (Y,X,W,C,V,F) 

4. Call A (Y,X,W,C,V$) 

wobei die Werte folgende Bedeutung 
haben: 

Y=Bildschirmposition (Zeile) 
(numerischer Ausdruck) 
X=Bildschirmposition (Spalte) 
(numerischer Ausdruck) 
W=Feldlänge (numerischer Ausdruck) 
C=Rückgabecode (numerische 
Variable) 

V=Rückgabevariable (numerische 
Variable) 

V$=Rückgabevariable (Stringvariable) 
L=unterer Wert (numerischer Aus¬ 
druck) 

H=oberer Wert (numerischer Aus¬ 
druck) 

F=Feldnummer (numerischer Aus¬ 
druck) 

Y bezeichnet die vertikale Position 
auf dem Bildschirm. 

Die Werte können von 1 für die erste 
Zeile auf dem Bildschirm bis 24 für 
die unterste Zeile auf dem Bild¬ 
schirm reichen. 

X bezeichnet die Spalte auf dem 
Bildschirm. Die Werte gehen von 
1 für ganz links außen bis 28 für 
ganz rechts außen. Wenn einer oder 
beide dieser Werte größer als der 
maximal erlaubte Wert ist, wird von 
diesem so lange der größterlaubte 
Wert abgezogen, bis ein gültiger Wert 
erreicht ist. Das bedeutet, wenn 
Y=34 und X=60 ist, werden die Da¬ 
ten auf der Bildschirmposition Y=10 
und X=4 angezeigt. Wenn einer oder 
beide Werte kleiner als 1 sind, so 
wird er auf 1 gesetzt. Das bedeutet: 
Y=0 und X=-5 gibt die Bildschirm¬ 
position Y=1 und X=l. 

W bezeichnet die Feldlänge. 


Wenn dessen Wert größer ist als die 
verbliebene Zeilenlänge, wird das 
Feld am rechten Ende des Bild¬ 
schirms abgeschnitten. 

C ist eine numerische Variable, in 
der ein Code ausgegeben wird. 

Der Code ist eine Ganzzahl von 
1 bis 7 mit folgenden Bedeutungen: 

1= gültiges Datenfeld wurde einge¬ 
geben. 

2=ein leeres Datenfeld wurde einge¬ 
geben. 

3=AID wurde gedrückt 
4=REDO wurde gedrückt 
5=PROC’D wurde gedrückt 
6=BEGIN wurde gedrückt 
7=BACK wurde gedrückt 
Diese Rückgabevariable macht es 
möglich, den Programmablauf ent¬ 
sprechend der Dateneingabe (z.B. 
bei leerem Datenfeld oder den spe¬ 
ziellen Funktionstasten) entspre¬ 
chend zu steuern. Im allgemeinen 
wird dieser Befehl mit einem ON 
GOTO Statement ausgewertet. 

Z.B. Call A() ...onC GOTO 580, 
620,920, 720, 680, 800, 100. 

Auf diese Art und Weise kann die 
Programmkontrolle weitergegeben 
werden, je nachdem, welcher Wert 
mittels C zurückgegeben wird. 

Wenn nur eine oder zwei der sieben 
aufgeführten Werte zugelassen wer¬ 
den, ist es einfacher, die Rückgabe¬ 
variable mit einem IF THEN State¬ 
ment anstelle des on GOTO State¬ 
ment auszuwerten. 

Z.B. If C=5THEN680::IFCO 
>1THEN 420 

V bzw. V$ enthält die Daten, die 
eingegeben wurden. L und H sind 
wahlweise zulässige Variable. 

Sie bezeichnen einen Wert innerhalb 
dessen die Acceptroutine Eingaben 
annimmt und auf Gültigkeit prüft. 
Wenn Sie versuchen, Daten einzu¬ 
geben, die außerhalb dieses Bereiches 
liegen, wird der Fehlerton ausgege¬ 
ben und der Cursor geht an den An¬ 
fang des Datenfeldes zurück. Wenn 
beide Parameter auf Null stehen, 
d.h. leer sind, wird keine Feld¬ 
prüfung durchgeführt. 

Der Wert F ist nur gültig, wenn ein 
vollständig definierter FILE¬ 
HEADER des Datenverwaltungs¬ 
oder Statistikmoduls existiert. In 
diesem Fall bezeichnet F die Daten¬ 
satznummer. 

Diese Routine entspricht im wesent¬ 
lichen der vom Extended Basic her 
bekannten ACCEPT AT Routine. 
Zeile entspricht hier Y Spalte = X, 
Size = W, Validate= H. 

DAS DISPLAY-UNTERPROGRAMM 

Dieses Unterprogramm wird verwen¬ 
det, um Daten an einer genau festge¬ 
legten Bildschirmstelle anzeigen zu 
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können. Die Routine wird mittels 
Call D in einer der folgenden For¬ 
men aufgerufen: 

1. Call D (Y, X, W, V) 

2. Call D (Y, X, W, V$) 

3. Call D (Yl, XI, Wl, VI, Y2, X2, 

W2, V2$, X3, X3, W3, V3 
ect.) 

wobei 

Y=Zeile (num. Ausdruck) 

X= Spalte (num. Ausdruck) 

W= Feldlänge (num. Ausdruck) 

V= anzuzeigender Werlt (num. Ausdr.) 
V$= anzuzeigender Wert (Stringausdr.) 

Y bezeichnet die vertikale Bild¬ 
schirmposition (Zeile). 

Der Wert kann von 1 bis 24 reichen, 
wobei 1 die oberste, 24 die unterste 
Bildschirmzeile darstellt. 

X bezeichnet die horizontale Bild¬ 
schirmposition. Die Werte reichen von 
1 für ganz links außen bis 28 für die 
äußerste rechte Position. Wenn bei 
einem oder beiden dieser Werte die 
größtmögliche Zahl überschritten 
wird, wird der größterlaubte Wert 
so oft abgezogen, bis ein gültiger 
Wert erreicht ist. Das bedeutet, wenn 
Y=34 und X=60 ist, werden die Da¬ 
ten an der Bildschirmposition Y=10 
und X=4 angezeigt. Wenn einer oder 
beide Werte kleiner als 1 sind, wird 
er auf 1 gesetzt. Das bedeutet Y=0 
und X=-5 ergibt die ßildschirmpo- 
sition von Y=1 und X=l. 

W bezeichnet die Feldlänge. Wenn 
der Wert positiv ist, wird das Anzei¬ 
gefeld vor der Anzeige der neuen 
Daten gelöscht. Wenn W negativ ist, 
wird der Absolutwert der Zahl als 
Feldlänge benutzt, aber das Feld 
vorher nicht gelöscht. Wenn die an¬ 
zuzeigenden Daten länger sind als 
das angegebene Feld, werden die Da¬ 
ten am Ende abgeschnitten. Wenn 
die restliche Zeilenlänge nicht mehr 
ausreicht, um di.e Feldlänge aufzu¬ 
nehmen, wird das Feld am Zeilen¬ 
ende abgeschnitten. 

V kann jede Art von einem nume¬ 
rischen Ausdruck sein. Ebenso kann 
V$ jegliche Art eines Strinkausdruk- 
kes sein. 

Diese Routine entspricht im Wesent¬ 
lichen der vom Extended Basic her 
bekannten Displayroutine. - 
X entspricht hierbei der Zeile, 

Y der Spalte, W dem Feld, Size und 

V bzw. V$ der Datenvariablen. Er¬ 
gänzend zum Display-Programm des 
Extended Basic können hier in einer 
einzigen Routine mehrere Display- 
Befehle gegeben werden. Die 
Positions-Feldlänge und anzuzeigen¬ 
de Daten werden einfach der Reihe 
nach aufgeführt. Die einzige Grenze 
für die Anzahl der Daten liegt in der 
Länge einer Basic-Programmzeile 
begründet. 

(Wird fortgesetzt) 




SOFTWARE IM TEST 


Texas-Instruments-Spielmodule 

SNEGGIT 


Die Aufgabe des Spielers ist es, mit 
seiner Spielfigur, dem Huhn, die 
über dem Bildschirm verteilten Eier 
ins Nest zurückzubringen. Als Ge¬ 
genspieler agiert der Computer, der 
mit einer Schlange versucht, die 
Eier aufzufressen und auch die 
Nester plündert. Über den Bild¬ 
schirm sind noch mehrere Spielfigu¬ 
ren als Hindernisse verteilt, von de¬ 
nen zwei Hasen sich auch über das 
Spielfeld bewegen. 

Ein Spiel, das auch für kleine Kinder 
ab 5 Jahre geeignet ist. Der Bild¬ 
schirmaufbau ist einigermaßen über¬ 
sichtlich, die Grafik jedoch sehr 
primitiv. Die Spielanforderung 
ist relativ gering. 

Bewertung: 

Spielidee ++ 

Grafik ++ 

Spielmotivation ++ 

Gesamturteil ++ 

SÜPER- DEMON-ATTACK 

Dieses Spiel wurde bereits im letzten 
Heft vorgestellt. Hier noch ein klei¬ 
ner Nachtrag: Von diesem Spiel gibt 
es offensichtlich zwei Versionen. 

Bei den uns diesmal vorliegenden 
Modulen (Jahrgang 1983) sind die 
uns anderweitig bekannten Sprach¬ 
synthesizerfunktionen nicht mit 
integriert und laut Beschreibung 
auch nicht vorgesehen. Der Redak¬ 
tion ist jedoch eine Version Jahrgang 
'84 mit Sprachsynthesizeransteue- 
rung bekannt. 

TREASURE-ISLAND 


Die Aufgabe des Spielers ist es, mit 
seiner Spielfigur auf einer am Bild¬ 
schirm dargestellten Insel übereinen 
Irrgarten aus Wegen und Höhlen die 
im Spielfeld versteckten Schätze 
einzusammeln. Auf dem Weg befin¬ 
den sich diverse Hindernisse sowie 
als Gegenspieler zwei Gorillas. Pro 
Spiel stehen fünf Spielfiguren zur 
Verfügung. 

Spielbewertung: 

Spiel idee +++ 

Grafik +++ 

Motivation ++++ 

Gesamturteil +++ 


SLYMOIDS_ 

Die Aufgabe des Spielers ist es, sich 
gegen jede Menge Monster zu erweh¬ 
ren. Im ersten von 3 Bildern befin¬ 
den Sie sich in einer freien Land¬ 
schaft. im zweiten Bild in den Räu¬ 
men einer Burg. 


Wenn Sie dieses Heft 
durchblättem, stoßen 
Sie auf zwei, so glau¬ 
ben war, wesentliche 
Änderungen: Zunächst’ 
einmal haben wir die 
Listings an den Seiten¬ 
rand gerückt, so daß in 
der Mitte ein Steg ent¬ 
steht, falls Sie diese 
Listings sammeln und 
abheften wollen. 

Und zusätzlich: Ab so¬ 
fort sind alle Verlags- 
Coupons, für Abo und 
Kleinanzeigen, Kasset¬ 
tenbestellungen usw. 
auf einer eigenen 
Doppelseite in der Heft¬ 
mitte konzentriert. 
Diese Doppelseite kön¬ 
nen Sie herausreißen, 
zerschneiden, ohne 
den Heft-Inhalt zu 
beeinträchtigen! 

Sie sehen, wir arbeiten 
stets an der Verbesse¬ 
rung des Heftes, wo¬ 
bei wir zugeben, daß 
diese Anregungen 
aus dem Leserkreis 
gekommen sind. 

Also: Danke. 

Und erneut die 
Bitte: Habt Ihr 
Ideen, Anregungen, 
schreibt uns. 


Achtung: Fachhändler für den 
TI 99/4A: Wir planen in einer 
der nächsten Ausgaben Über¬ 
sichten der erhältlichen Hard-V^ ? 
und Software für den TI 99/4A. 
Bitte schicken Sie uns Ihre Listen! 
Vielen Dank, Ihre TI-REVUE- 
Redäktion, Postfach 1107, ... 


D 8044 Unterschleißheim, v - 

■ ■ - - - ' . 

Das dritte Bild spielt in der Nacht. 
Man könnte fast sagen, daß dieses 
Spiel so manchen Alptraum ins Bild 
versetzt. 

Spiel bewertung: 

Spiel tdee ++++ 

Grafik ++++ 

Motivation +++ 

Gesamturteil ++++ 


HOPPER 


Dieses Spiel ist eine Referenz an die 
vielen TI-Freunde in Australien. 
Unsere Spielfigur ist ein Känguruh. 
Gegenspieler sind drei gefräßige 
Räuber, die das Känguruh fangen 


M OON-MINE _ 

Sie befinden sich mit Ihrem gepan¬ 
zerten Raupenfahrzeug im Schacht 
eines Mondbergwerkes und müssen 
sich unbekannter Objekte und Dä¬ 
monen erwehren. Unterwegs finden 
Sie Bodenschätze und Wasser, die 
von einem Crewmitglied in das Fahr¬ 
zeug aufgesammelt werden müssen. 
Hierfür gibt es Zusatzpunkte. Die 
Bildschirmgrafik zeigt den Tunnel 
durch ein Fenster des Fahrzeuges 
sowie die Instrumententafel. Das 
Bild ist im Grunde immer das glei¬ 
che, es gibt jedoch immer wieder 
neue Überraschungen. Positiv ist 
anzumerken, daß dieses Spiel ins¬ 
gesamt in sieben Sprachen verfügbar 
ist, sowie den Sprachsynthesizer, 
diesen allerdings nur in Englisch, 
ansteuert. Negativ zu bemerken ist, 
daß sich wiederum einige Textfeh¬ 
ler eingeschlichen haben. 

Bewertung: 


Spielidee +++ 

Grafik ++ 

Motivation +++ 

Gesamturteil +++ 


CONGO-BONGO 

Endlich einmal kein Knall- und 
Bummspiel. Dieses Spiel zeichnet 
sich durch hervorragende Grafik 
sowie dreidimensionale Bildschirm¬ 
gestaltung aus. Die Aufgabe ist es, 
den Jäger über das Gelände zum 
Affen hinzuführen. Er muß hierbei 
verschiedenste Hindernisse überwin¬ 
den. Wenn er den Affen das erste¬ 
mal erreicht hat wechselt das Bild. 
Hier gilt es nun, ein Gewässer zu 
überqueren. Man darf keinen Fehl¬ 
tritt tun, sonst ist eines der fünf 
Leben der Spiel figur erschöpft. 

Spielbewertung: 


Spiel idee ++++ 

Grafik +++++ 

Motivation ++++ 

Gesamturteil +++++ 


wollen. Aufgabe ist es. sich dieser 
Räuber zu erwehren, ihnen mit den 
auf dem Spielfeld herumliegenden 
Kisten, die es mittels seiner Arme 
bewegen kann, den Weg zu versper¬ 
ren und sie nach Möglichkeit mit 
diesen Kisten zu erschlagen. 

Dieses Spiel geht über insgesamt 
neun Spielstufen und ist für sowohl 
einen als auch zwei Spieler geeignet. 
Bewertung: 


Spielidee 

Grafik 

Motivation 

Gesamturteil 


++++ 

+++ 

+++++ 

++++ 
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INTELLIGENZ 


Das Programm Intelligenztraining soll einen kleinen 
Beitrag zur Förderung und Aktivierung Ihrer geisti¬ 
gen Fähigkeiten liefern. Der Computer stellt Ihnen 
5 verschiedene Aufgaben mit bis zu 15 Teilfragen. 
Die Beantwortung erfolgt bei den einzelnen Aufga¬ 
ben auf die verschiedenste Art und Weise. Nachdem 
Sie alle Aufgaben durchgearbeitet haben, generiert 
der Computer für Sie eine Tabelle und trägt Ihre 
Ergebnisse ein. Danach können Sie wählen, ob Sie 
das Programm verlassen wollen, oder einen neuen 
Versuch starten möchten. 

Für jede gelöste Teilaufgabe bekommen Sie einen 
Punkt. Nur anhand der Punktzahl können Sie am 
Ende jeder Aufgabe erkennen, wieviel richtige Lö¬ 
sungen Sie gefunden haben. Sollten Sie einige Lö¬ 
sungen nicht gefunden haben, erscheint die richtige 
Lösung nicht. Sie ist größtenteils im Listing sogar 
verschlüsselt, daß Sie nicht in Versuchung kom¬ 


i o ! ********************** 


Intelligenztraining* 


c 1984 by 
Hartmut Koenig 

Bearbeitet vom 
TeaVn des 

Aktuell Verlages 
MUENCHEN 

Benoetigte Geraete 
TI99/4A Konsole 
Ext.Basic 
*Speiehererweiterung 
* 

* Speicherbelegung: 

* 17200 Bytes 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


12 ' * 

14 ! * 

16 ! * 

18 ! * 

20 ! * 

2 2 ! * 

24 '. * 

26 ! * 

28 ! * 

30 ! * 

32 ! * 

34 ! * 

36 ! * 

38 
40 
42 
44 
46 
48 
50 

200 ! SONDERZEICHEN IN SUB 

TITEL: §=CTRL N 

210 ON WARNING NEXT :: ON BR 
EAK NEXT 

220 CALL CLEAR :: CALL TITEL 

■ :: call screen(H):: displa 

Y AT<8,4):"INITIALISIERUNG.. 

.” :: DISPLAY AT(10,4):"MOME 

NT BITTE M : : CALL CHA 
230 CALL RAHM(6,5,22,5):: CA 
LL CLEAN(7,5,26,5) 

240 D*="lö->ÖERKLAERUNGEN" : 

: CALL FARBE (DS, 2, 13) *. *. DISP 
LAY AT(8,4)SIZE(17):D* :: DS 
="2ü->ötrainingsbeginn" :: c 
ALL FARBE(D$,2,13) 


men. Jeder Versuch zu mogeln wird mit einem 
Tadel geahndet. 

Versuchen Sie es halt ein paar Tage später noch¬ 
mal und denken Sie dann besser nach. Vor jeder 
Aufgabe gibt Ihnen der Computer genaue Hinweise, 
wie diese zu lösen ist. Lesen Sie die Aufgabenstel¬ 
lung genau durch. Hier kann manchmal jedes Wort 
wichtig sein. Die DATA-Zeilen müssen Sie genau 
abtippen, sonst kann es zu falschen Lösungen kom¬ 
men. In diesem Programm sehen Sie übrigens, wel¬ 
che hervorragenden Möglichkeiten die Uhr aus 
Heft 2 bietet. Es ist zur Nachahmung empfohlen. 
Besonders beim Programmieren von Spielen könnte 
diese Uhr eine wertvolle Bereicherung sein. 

Hartmut König 


250 DISPLAY AT(1O,4)SIZE<20) 
:D* :: CALL CHAR(35,"3C4299A 

1 A199423C " ) : DISPLAY AT(23, 

2) : " 1984 BY HARTMUT KOENIG 

260 CALL TASTE(K)*.: IF K<49 
OR K >50 THEN 260 ELSE ON K-4 
8 GOTO 270,300 

270 CALL CLEAR :: CALL SCREE 
n(2):: FOR 1=1 TO 8 :: call 
color(I,2,13):: next I :: ca 

LL RAHM(4,7,20,15):: CALL RA 
HM(3,6,22,17) 

280 REST0RE 1010 
290 CALL COLOR(14,11,11):S C 
ALL CLEAN(5,7,26,15):: CALL 
L2<15,4,5,11):: DISPLAY AT<2 
2,21):"<ENTER> M :: CALL TAST 
E (K) 

300 RESTORE 1040 

310 ! * HAUPTPROGRAMM * ' 

320 a=i :: call clear :: B*= 

•'...FORMALLOGISCHES DENKEN" 

:: call ue<b$, l,15,13):: cal 
L Li(7,7,1) 

330 CALL TASTERK):: IF K>90 
THEN CALL FEH :: GOTO 330 EL 
SE CALL UH 

340 CALL RAHM(8,4,26,5):: CA 
LL COLOR(14,IO,IO):: CALL CL 
EAN(9,4,29,5):: CALL L2(5,8, 
2,10)*.: CALL RAHM (21,15,2, 1 ) 

:: FOR 1=1 TO 15 

350 READ D$,LO$ :: DISPLAY A 
T(16,1>:D$ :: DISPLAY AT(22, 
13)SIZE(2):"rr" 
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360 CALL TASTE(K):: IF K=77 
0R K=84 THEN 370 ELSE 360 
370 DISPLAY AT(22,13)SIZE(1) 

:chr$<K+51):: if chr$(K)=lo$ 
THEN E2(A)=E2(A)+1 
380 CALL HCHAR(16,1,32,128): 
: next i :: ei<a)=15 :: call 
PUNKTE(A,E2()):: CALL VH 
390 ! AUFGABE 2 

400 a=2 :: mi=10 :: b$="... s 
PRACHGEBUNDENES DENKEN " :: 
CALL UE(B$,2,15,10):: CALL L 
1 (9,7, 1 ) 

410 CALL T ASTE < K) : : IF K>90 
THEN CALL FEH :: GOTO 410 EL 
SE CALL VH 

420 CALL LI (15,7,2) : : FOR J = 

1 to 15 :: read lo$ :: displ 

AY AT(J+7,14):" = " CALL TI 

ME(MI,SEK,A):: ACCEPT AT(J+7 
,16)VALIDATE(UALPHA, "?") : AN$ 
430 GOSUB 880 IF AN$<>LO$ 

THEN GOTO 440 ELSE E2(A)=E2 
(A)+1 I: GOTO 450 
440 DISPLAY AT(24,1):"OJE,OJ 
E - UEBEN,UEBEN,UEBEN" :: CA 
LL.DEL<200):: CALL HCHAR<24, 
1,31,32) 

450 NEXT J :: El(A)=15 :: CA 
LL PUNKTE<A,E2()):: CALL VH 
:: CALL HCHAR(4,13,143,9) 

460 ! AUFGABE 3 

470 A=3 :: B$="..KONZENTRATI 
ON UND TEMPO.." :: CALL UE(B 
$,3,3,12):: CALL LI(10,7,1) 
480 CALL TASTE(K):: IF K>90 
THEN CALL FEH :: GOTO 480 :: 
ELSE CALL VH 

490 CALL COLOR<9,2,7,10,2,7, 
14,7,7) 

500 CALL RAHM(8,6,23,13) : : C 
ALL LI<13,8,4):: DISPLAY AT( 
23,4):"11..87..496...345..18 
63" :: DISPLAY AT(24,4):"794 

2 .2365-- . 5294" 

510 CALL TIME(4,O,A) : : CALL 
CLEAN(9,6,28,13):: CALL L2(4 
,9,6,7) 

520 CALL L2(8,13,6,7):: FOR 
1=1 TO 8 :: DISPLAY AT(1+13, 
12)SIZE(1):"p" 


530 CALL TASTE(K):: IF K>90 
THEN CALL FEH :: GOTO 530 EL 
SE IF K< 48 OR K>57 THEN 530 
ELSE DISPLAY AT(I+13,14)SIZE 
(-1):CHR$(K+51) 

540 READ LO$ :: IF CHR$(K+51 
)=LO$ THEN E2(A)=E2(A)+1 
550 NEXT i :: El( a)=8 :: CAL 
L PUNKTE(A,E2()):: CALL HCHA 
R(23,1,32,64):: CALL VH :: C 
ALL HCHAR(4,13,143,9) 

560 ! AUFGABE 4 

570 A=4 :: B$="..ZAHLENGEBUN 

DEMES..DENKEN " :: CALL UE(B 

$,4,9,9):: CALL LI(16,7,1):: 

CALL TASTE(K):: CALL VH 
580 CALL RAHM(9,9,14,9):: CA 
LL COLOR ( 14, 12, 12) : .* CALL CL 
EAN(10,9,22,9) 

590 ko=o :: z=9 :: sp=s :: f 
or j = i to 2 :: t=0 :: call l 
2(5,0,7,11+J) 

600 CALL CURS(Z,SP,KO,2) : : I 
F K0=1 THEN ON J GOSUB 1520, 
1540 :: GOTO 600 
610 CALL CLEAN(IO,9,22,9) : : 
NEXT J :: CALL COLOR(14,3,3) 
:: CALL RAHM(9,8,17,11):: CA 
LL CLEAN(10,8,24,11) 

620 z=9 :: sp=7 :: for j=i t 
o 2 :: T=0 :: call L2(6,o,6, 

3 + J) 

630 CALL CURS(Z,SP,KO,2) : : I 
F K0=1 THEN ON J GOSUB 1560, 
1580 :: GOTO 630 

640 CALL CLEAN<10,8,24, 11): : 

NEXT J :: CALL RAHM(9,7,20, 
13):: T=o :: z=9 :: sp=6 :: 
CALL CLEAN(10,7,26,13):: CAL 
L COLOR(14,3,3):: CALL L2(7, 
0,5,3) 

650 CALL CURS(Z,SP,KO,2) : : I 
F KO=1 THEN GOSUB 1600 :: GO 
TO 650 ' 

660 CALL HCHAR(4,13,143,9):: 

call vh :: Ei( a)=9 :: call 
PUNKTE(A,E2()):: T,D=0 
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670 ! AUFGABE 5 

680 a- 5 :: z=2l :: sp=28 :: 

B$="... FORMALLOGISCHES DENKE 
N" :: Ei(A)=9 :: call Li(i4, 
7,1):: CALL TASTE(K)::.CALL 
HCHAR(6,1,32,608):: CALL RAH 
M(6,4,27,5) 

690 CALL RAHM(13,4,23,IO):: 
CALL RAHM(13,29,1,9):: CALL 
CHARPAT(46,CH$,63,CI$):: CAL 
L CHARdlO, ,, 0 M ,104,CI$,62,CH 
$) 

700 CALL VCHAR(14,29,110,9): 

*. FOR 1 = 14 TO 22 STEP 2 : '. D 
=D+1 :: DISPLAY AT(I,27)SI2E 

(l):CHR$(99 + D):: next i :: c 
ALL COLOR(14,13,13) 

710 FOR 1=1 TO 5 :: CALL CLE 
AN (7,4,30,5) *. : CALL CLEAN (14 
,4,26,10):*. CALL L2(5,6,2, 13 
):: CALL L2(10,13,2,13) 

720 CALL CURS(Z,SP,KO, 1) : : I 
F K0= 1 THEN GOSUB 890 : *. GOT 
O 720 

730 T = 0 :: NEXT I 
740 ! * AUSWERTUNG * 

750 CALL DEL(200):: CALL HCH 
AR (4, 1,32,672) *. : FOR 1 = 1 TO 

8 :: call color( i,2,li):: ne 

XT I :: CALL SCREEN(2) 

760 DISPLAY AT(2,1): 
ENDAUSWERTUNG ” CALL RAHM ( 

5,7,20,13):: CALL CHAR(62,RP 
T$("18",8),61,"OOOOOOFFFF",6 
O,"181818FFFF181818") 

770 FOR 1=7 TO 17 STEP 2 : : 
FOR J=5 TO 24 : : DISPLAY AT < 
i,J)SIZE(I)::: call del< 
50):: next J :: next i 
780 DISPLAY AT(6,5)SIZE(20): 
"NR WERT PKT. PROZENT" :: D= 
2 :_: for 1 = 1 to 5 :: Display 
AT(6+D,6)SIZE(1):USING 
I 

790 DISPLAY AT(6+D,9)SIZE(-2 
):usin& “##":ei( i):: Display 

AT(6+D,14)SIZE(-2):USING "# 

#" :e2(I)':; if E2(i)THEN pro= 
100*E2<I)/El(I)ELSE PR0=0 
800 DISPLAY AT(6+D,18)SIZE(— 
7): USING ■'MttM.##%":PRO 


810 d=d+ 2 :: w=w+Eid):: p=p 
+E2(I):: next i :: proz=ioo* 
P/W :: FOR 1=7 TO 17 STEP 5 

:: for J=6 to 16 :: call gch 

AR(J,1+2,GC) 

820 IF GC=32 THEN C$=">" ELS 
E C$="<" 

830 DISPLAY AT<J,I>SIZE<1>:C 
$ :: NEXT J :: next i :: dis 
PLAY AT(18,5)SIZE(6):"GES 56 
" :: DISPLAY AT(18,14)SIZE(2 

):STR$(P) 

840 DISPLAY AT(18 , 18)SIZE(-7 
):USING "###.##%":proz 

850 CALL RAHM(20,8, 19, 1 ) : : D 
ISPLAY AT(21,6)SIZE(19):"N0C 
H EINMAL ? (J/N)" 

860 CALL TASTE(K):: IF K=74 
OR K=104 THEN 220 ELSE IF K= 
78 OR K=11O THEN CALL VH :: 
STOP 

870 GOTO 860 

880 X*="" :: FOR K=1 TO LEN( 

LO*):: AA=ASC(SEG*(LO*,K,1)) 
:: x$=x$^chr^(aa-5):: next k 
:: lo$=x$ :: return 

890 ON 1 GOTO 900,910,910,92 
0,900 

900 T=T +1 :: IF T >1 THEN GOS 

UB 990 ;: GOTO 980 ELSE 930 
910 T =T +1 :: IF T >2 THEN GOS 

UB 990 :: GOTO 980 ELSE 930 
920 T=T +1 :: IF T>3 THEN GOS 

UB 990 :: GOTO 980 ELSE 930 
930 IF SP<>28 THEN 980 ELSE 
IF 1=1 AND Z = 15 THEN 970 ELS 
E IF 1=2 AND(Z=15 OR Z=17)TH 

EN 970 , 

940 IF 1=3 AND ( ( Z= 13 OR Z=19) 
THEN 970 ELSE IF 1=4 AND(Z=l 
3 OR Z=15 OR Z=21)THEN 970 
950 IF 1=5 AND Z=13 THEN 970 
ELSE DISPLAY AT<5,3):"DENKE 
N SIE LOGISCH !!!" 

960 CALL DEL(200):: CALL HCH 
AR(5,5,32,25):: GOTO 980 
970 E2(A)=E2(A)+1 :: GOSUB 1 

620 

980 RETURN 
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990 DISPLAY AT<5,4):"BITTE N 
ICHT MOGELN !" :: CALL DEL(4 
50):: CALL HCHAR(5,6,32,21): 

: RETURN 

lOOO DISPLAY AT(5,3):"EINGAB 
E AKZEPTIERT !!" :: CALL DEL 
(150):: CALL HCHAR(5,5,32,22 
):: RETURN 

1010 DATA SIEöHABENöINöDIESE 
M,TRAININGSPROGRAMM,5ÖKAPITE 
LÖMITÖINSGE-,SAMTÖ48ÖFRAGENÖ 
DURCH,ZUÖARBEITEN.,PR0ÖRICHT 
IGÖBEANT- 

1020 DATA WORTETEöFRAGEöGIBT 
,ESÖEINENÖPUNKT.DIE,ANZAHLöl 
HRERöRICHTI-,GENöLOESUNGENöB 
EKOM-,MENÜSIEöAMöENDEoDER,AU 
FGABEöANGEZEIGT. 

1030 DATA NEHMENöSIEöSICHöZE 
IT,UNDÖUEBERLEGEN,SIEöGUTö. 

1040 DATA TRAINIEREN SIE IHR 
E FAEHIG-,"KEITEN,MEINUNGEN 
UND TATSACH-",EN MIT NACHTWA 
NDLERISCHER,SICHERHEIT AUSEI 
NANDERZUHAL-,TEN! 

1050 DATA GEBEN SIE ALS ANTW 
ORT EIN T,ODER EIN M EIN. < 
ENTER>,ööölSTÖESÖEINEÖT ATSAC 
HE,ö,öööööööööööODER,ö,ISTÖE 
SÖEINEÖMEINUNGÖDASS.. 

1060 DATA 1 URLAUBER IN ITAL 
IEN MEHR .... SONNE. .ERWARTEN 

ALS. . IN.-OESTERREICH?,T 

1070 DATA 2 URLAUBSREISEN MI 
T DEM AUTO..ERHOLSAMER..SIND 
..ALS..MIT..ANDEREN..VERKEHR 
SMITTELN ?,M 

1080 DATA 3 URLAUB UM-SO SCH 
OENER IST...JE WEITER MAN RE 
IST ?,M 

1090 DATA 4 URLAUB AM MEER M 
ANCHMAL.....DEM URLAUB IM GE 
BIRGE VOR-..ZUZIEHEN IST ?,T 
llOO DATA 5 WINTERURLAUB IM 

ALLGE-.MEINEN ZU KURZ K 

OMMT ?,T,6 URLAUB IM SOMMER 

EHER.ZUM FAULENZEN DIE 

NT ?,M 


lllO DATA 7 URLAUB - KOMFORT 
UND ER-....HOLUNG EINANDER 
BEDINGEN ?,M,8 URLAUBSBEKANN 

TSCHAFTEN.NICHT LAENGER 

DAUERN ALS.;..DER URLAUB SE 
LBST ?,M 

1120 DATA 9 URLAUB NICHT IMM 

ER MIT.BESONDERS HOHEN 

AUSGABEN. ... VERBUNDEN IST ?, 

T, 1O URLAUB EINEM MEISTENS Z 

U. ...KURZ VORKOMMT ?,T 


1130 DATA 11 URLAUBSVORBEREI 

TUNGEN.EIGENTLICH NICH 

T GUT.ALS..URLAUB..GE 

LTEN.KOENNEN ?,T 

1140 DATA 12 URLAUBSERINNERU 
NGEN UND.ANDENKEN NICHT 


JEDEN GAST...INTERESSIEREN ? 

,T,13 URLAUBSZEITEN DEN FLIT 
TER...WOCHEN GLEICHEN ?,M 

1150 DATA 14 URLAUBSGELDER E 
IGENTLICH....EINE BELASTUNG 

DES OEF-.FENTLICHEN HAUS 

HALTS DAR-...STELLEN ?,M 
1160 DATA 15 URLAUB NICHT.. 
IMMER. .ZU. ... EINER WELTREISE 
AUSARTEN. ... MUSS ?,T 

1170 DATA SCHAERFEN SIE IHRE 
N BLICK,FUER JENE BUCHSTABEN 
KOMBINA-,"TIONEN,DIE WIR WOR 
T NENNEN.”,UM WELCHE TIERE H 
ANDELT ES 

1180 DATA SICH IN DER NAECHS 
TEN AUF-,GABE?,SOLLTEN SIE W 
IDER ERWARTEN,"EIN TIER NICH 
T ERRATEN,TIP-",PEN SIE EINS 
?’EIN. < ENTER > 

1190 DATA Ol GAJURA,02 REING 
H,03 LODRESS,04 TRANPEH,05 B 
RUSDAS,06 RADREM,07 BLASWECH 
,08 SUMA,09 PLEIHND,10 PETSC 
H.ll SIAMEE,12 LULAWAB 
1200 DATA 13 PRAFNEK,14 PLAN 
SEI,15 NEUDESH 

1210 DATA OFLZFW,MJWNSL, IWTX 
XJQ,UFSYMJW,GZXXFWI,RFWIJW, X 
HMöFQGJ,RFZX, IJ QUMNS,XUJHMY, 
FRJNXJ,GQFZöFQ,PFWUKJS,XUFSN 
J Q,XJ J MZSI 
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1220 DATA SCHULEN SIE IHRE K 
ONZENTRAT-,IONSKRAFT UND TEM 
POMOTIVAT-, H ION,ZAEHLEN SIE 
IN DER FOL-","GENDEN AUFGABE 
,WIE OFT DIE" 

1230 DATA "ZAHLEN 11,87,496, 
345, 1863, "7942,2365 UND 52 

94 ENTHALTEN",SIND.SIE HABEN 
4 MINUTEN,"ZEIT,SOLLTEN SIE 
FRUEHER" 

1240 DATA "FERTIG SEIN,DRUEC 
KEN SIE EIN",FACHSENTER’ . . . . 

< ENTER > 

1250 DATA h-fddjgj 1 ged iegh 11h 
e-fihd,kldd-fdgjgikh-fjj lcdkckh 
i ,-f-j lefvfkl-f ihgkjccf h-fdekc, -f-f 
h + ge-f i hgj i + dlehggiicg, igkehc 
llkjgg-fj lk-fiij-fje 
1260 DATA + i hhl-f i-f ghc 1 1 legi i 
-feeke, j ekhddj ceckj j j ehdgick-f 
g, ek + d 1 h j -f qhqej g-f kc i i gc j g , h k 
dgig-fdldki-feieieciclc, ge g-f -f j 
j -fqhkqgh+k iq+ckgg 
1270 DATA -fkddh i lelegeei j h-f h 
el idk,chddihdki-fjjjckkicel ig 
i , lcddhd-f-fh i cee-f i hk j dh 1 ge , NU 
N7HABENÖSIEÖDIE,RICHTIGENöLO 
ESUNGEN 

1280 DATA GEFUNDEN7WIRÖWERDE 
N,SEHEN.,11,87,496,345,1363, 
7942,2365,5294, i , g, e, -f , e , d , g 
j c 

1290 DATA "GLAUBEN SIE NICHT 
ALLES, WAS" , SIE SEHEN'.DIE FO 
LGENDEN ZAH-,LENFELDER SEHEN 
SO SCHOEN,"ORDENTLICH AUS,A 
EER IN JEDEM" 

1300 DATA VON IHNEN STECKT D 
ER WURM,(IN MANCHEN SOGAR ME 
HRERE).,FINDEN SIE DIE MUSTE 
R HERAUS,NACH DENEN JEDES FE 
LD AÜFGE- 

1310 DATA "BAUT IST,DANN HAB 
EN SIE DIE",FEHLER AUCH SCHO 
N -FAST- GE,FUNDEN.,FUEHREN 
SIE DEN CURSOR UEBER,DIE FAL 
SCHE ZAHL UND DRUECK- 
1320 DATA EN SIE $F’ .WENN SI 
E GLAUBEN,ALLE FEHLER GEFUND 
EN ZU HAB-,EN DRUECKEN SIE $ 
Q’ .<ENTER>,Ö1ÖÖ4ÖÖ7Ö10Ö13,Ö3 
ÖÖ6ÖÖ9Ö12Ö15,Ö5ÖÖ8Ö11Ö14Ö17 


1330 DATA Ö7ÖÖ9Ö13Ö16Ö19,Ö9Ö 
12ol5öl8Ö21,Ö4ÖÖ8Ö12Ö16Ö20, ö 
9öö5öö9ö13ö17,14Ö10ÖÖ6Ö10Ö14 
,18Ö15Ö11ÖÖ7Ö11,24Ö20Ö16Ö12Ö 
öS,Ö4ÖÖ5ÖÖ7Ö10Ö14Ö19 
1340 DATA 22ö17ö13ö10ÖÖ8ÖÖ7, 
Ö9Ö10Ö11Ö15Ö19Ö24,24Ö19Ö16Ö1 
2öiOöö9,Ö7ÖÖ8Ö1Oö13ö17Ö22,19 
Ö14Ö10ÖÖ7ÖÖ5ÖÖ4,10Ö17Ö18Ö19Ö 
16Ö19,17ö12ÖÖ7ÖÖ8Ö15020 

1350 DATA 14ÖÖ3ÖÖ4Ö15ÖÖ8Ö15, 
13Ö20Ö19Ö16Ö13Ö19,10öö5öö6öö 
7Ö14Ö17,17öö8öö5ö16ÖÖ7ÖÖ6,Ö6 
öö7öö8öl0öö8öö7öö6,Ö7ÖÖ8ÖÖ9Ö 
13ÖÖ9ÖÖ7ÖÖ7 

1360 DATA Ö8ÖÖ9Ö1Oö11ö10ÖÖ9Ö 
Ö8,10öl3öllöl2öllöl3öl0,ö3öö 
9Ö12Ö11Ö10ÖÖ9ÖÖ8,Ö7ÖÖ8ÖÖ9Ö13 
Ö10ÖÖ8ÖÖ7,Ö6ÖÖ7ÖÖ8Ö10öö8öö7ö 
Ö6 

1370 DATA AUS DEN FOLGENDEN 
FESTSTEL-,LUNGEN MUESSEN SIE 
IHRE LOG-,ISCHEN SCHLUESSE 
ZIEHEN.,"UEBERLEGEN SIE GUT, 
NICHT" 

1380 DATA "IHRE MEINUNG ZAEH 
LT,SONDERN",NUR DIE AUSSAGEK 
RAFT DES,SATZES.,’,ACHTUNG!! 

AUCH HIER SIND,MEHRERE ANTW 
ORTEN MOEGLICH.,’ 

1390 DATA STEUERUNG WIE AUFG 
ABE 4.,»," 

< ENTER >",AÖALLEÖMAENNERÖLIE 
BEN,ööHUEBSCHEöMAEDCHEN,ö 

1400 DATA BöVIELEöFRAUENöSIN 

D, ööHUEBSCHEöMAEDCHEN,löMAEN 
NERöSINDöMITöHUEB,ööSCHENöMA 
EDCHENöBE,ööKANNT.,2ÖHUEBSCH 
EÖMAEDCHENÖLIE 

1410 DATA ÖÖBENÖMANCHMALÖMAE 
NNER.,3ÖMAENNERÖLIEBENÖMINDE 
S,ÖÖTENSÖEINÖHUEBSCHES,ÖÖMAE 
DCHEN.,4ÖEINÖMANNÖLIEBTÖVIEL 

E, ööFRAUEN. 

1420 DATA AöALLEöFRAUEN,ööHE 
IRATENöGERN,ö,BöVIELEÖMAENNE 
RöSIND,ööVERHEIRATET,1ÖVIELE 
öMAENNERöSIND,ÖÖMITöALLENöFR 
AUEN ,ööVERHEIRATET . 
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1430 DATA 2ÖFRAUENÖDIEÖHEIRA 
TEN,ÖÖHABENÖEINENÖEHEMANN.,3 
ÖVIELEÖFRAUENÖSINDÖMIT, ÖÖMAE 
NNERNöVERHEIRATET.,4ÖEINÖMAN 
NöHEIRATET 

1440 DATA ÖÖG'ERNÖE INEÖFRAU. , 
ö,AöMANCHEöMAENNERöLIEBEN,öö‘ 
MAEDCHENöMöLANGENöHAAREN, BöA 
LLEöMAENNERöSIND,ööCASANOVAS 
1450 DATA CöMANCHEöUNDöVIELE 
ö=öALLE,löVIELEöMAENNERöLIEB 
EN,ÖÖMAEDCHENÖMITÖLANGEN,ÖÖH 
AARENÖNICHT.,2ÖHUEBSCHEÖMAED 
CHEN,ÖÖHABENÖLANGEÖHAARE. 

1460 DATA 3ÖKEINEöFRAUöIST,ö 
ÖEINÖCASANOVA « ,4ÖMANCHEÖCASA 
NOVAS, ööLIEBENoMAEDCHEN-, ÖÖMI 
TöLANGENöHAAREN.,AÖEINEÖFREU 
NDINÖIST,ööKEINöJUNGGESELLE 
1470 DATA ö,BöJUNGGESELLENÖS 
IND,ÖÖSEXMUFFEL,1öSEXMUFFELö 
SIND,ööJUNGGESELLEN.,2ÖMANCH 
. EöSEXMUFFEL,ÖÖSINDöJUNGGESEL 
LEN. 

1480 DATA 3ÖEINEÖFREUNDINÖKA 
NN,ööEINÖSEXMUFFELÖSEIN. , 4ÖE 
INöSEXMUFFELöIST,ÖÖKEINEÖFRE 
UNDIN.,ö,ö,AöFRAUENöMOEGENöZ 
AERTLICHK 

1490 DATA BöWERöZAERTLICHöIS 
TöBRINGT,ÖÖESÖWEITÖIMÖLEBEN, 
CÖMAENNERÖKOENNEN,ööZAERTLIC 
HöSEIN,1ÖMANCHEÖMAENNER,ööKÖ 
ENNENÖESÖIM 

1500 DATA ÖÖLEBENÖWEITöBRING 
EN.,2ÖMANCHEÖMAENNERÖBRING-, 
ööENöESöIMöLEBENöWEIT .,3ÖWER ' 
öESöIMöLEBENäWEIT,ööBRINGTöW 
IRDÖVONÖDEN 

1510 DATA ÖÖFRAUENÖGELIEBT., 
4ÖMAENNERÖM0EGENÖDIEÖZA,ÖÖER 
TLICHK.ÖDERÖFRAUEN. 

1520 IF T >0 THEN GOSUB 990 : 

I RETURN ELSE IF Z=15 AND(SP 
=11 OR SP=12)THEN E2(A)=E2(A 
) +1 

1530 GOSUB 1620 :: T = T +1 :: 

RETURN 

1540 IF T >0 THEN GOSUB 990 : 

: RETURN ELSE IF Z=15 AND SP 
=8 THEN E2(A)=E2(A)+1 


1550 GOSUB 1620 :: T=T+1 :: 
RETURN 

1560 IF T >1 THEN GOSUB 990 : 
: RETURN ELSE IF <Z=13 AND S 
P=13)OR(Z=15 AND SP=13)THEN 
E2(A)=E2(A)+1 

1570 GOSUB 1620 :: T=T +1 :: 
RETURN 

1580 IF T >1 THEN GOSUB 990 : 
: RETURN ELSE IF (Z=15 AND S 
P=19)0R(Z=15 AND SP=22)THEN 
E2(A)=E2(A)+1 

1590 GOSUB 1620 :: T = T +1 :: 

RETURN 

1600 IF T > 2 THEN GOSUB 990 : 
: RETURN ELSE IF <Z=11 AND(S 
P —21 OR S P = 2 2) )OR(Z=17 AND S 
P=12)OR(Z=19 AND SP=18)THEN 
E2(A)=E2(A)+1 

1610 gosub 1620 :: t=t +1 :: 

RETURN 

1620 DISPLAY AT(5,2):"AKZEPT 
IERT,BITTE WEITER!!" :: CALL 
DEL(450):: CALL HCHAR(5,4,3 
2,26):: RETURN 
1630 SUB CHA 

1640 CALL CHAR(34,"OOOOOOOOO 
OOOFFFF", 39,RPT«( "80",8) ,36, 
RPT«("01 ", 8) ,38, "FFFF") 

1650 CALL CHAR(92,"O",91,"FF 
818181818181FF"):: FOR K=45 
TO 92 :: CALL CHARPAT(K,CH«) 
:: CALL CHAR(K+51,CH«):: NEX 
T K :: SUBEND 
1660 SUB FARBE(B«,Fl,F2) 

1670 FOR K=1 TO LEN(B«):: AA 
=ASC<SEG«(B«,K,1)):: BI«=BI« 
&CHR«(AA+51):: NEXT K :: B«= 
Bl« :: BI«="" 

1680 FOR K=9 TO 14 :: CALL C 
OLOR(K,Fl,F2):: NEXT K :: SU 
BEND 

1690 SUB RAHM(Z,SP,S1,S2) 
1700 CALL HCHAR(Z,SP,34,S1): 

: CALL VCHAR(Z+l,SP-1,36,S2) 
:: CALL HCHAR(Z+l+ S2,SP,38,S 
1):: CALL VCHAR(Z+l,SP + Si,39 
,S2):: SUBEND 

1710 SUB CURS(Z,SP,KO,M) 

1720 CALL SPRITE(«1,142,2,Z* 
8,SP*8):: CALL MAGNIFY(M) 


» 
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1730 CALL TASTE(K) : : IF K>90 
THEN CALL FEH :: GOTO 1730 
1740 N=POS("SDXEFQ",CHR*(K), 
1):: IF N=0 THEN 1730 ELSE O 
NN GOSUB 1760,1770,1780,179 
0,1840,1840 

1750 DISPLAY AT(4,11)SI2E<4) 

:using "z=##":z :: Display a 

T (4, 16)SIZE<4) : USING "S=## M : 

SP :; GOTO 1730 

1760 gosub 1810 :: sp=sp-i : 

: gosub 1800 :: return 
1770 gosub 1810 :: sp=sp+i : 

: gosub 1800 :: return 
1780 gosub 1810 :: z=z+i :: 
gosub 1800 :: return 
1790 gosub 1810 :: z=z-i :: 
gosub 1800 :: return 

1800 CALL LOCATE(«1,Z*8,SP*8 
):: RETURN 

1810 IF SP<=5 THEN SP=SP+1 E 
LSE IF SP >=28 THEN SP=SP-1 
1820 IF Z< =8 THEN Z = Z+1 ELSE 
IF Z > = 22 THEN Z=Z-1 
1830 RETURN 

1840 IF K=70 THEN KO=l ELSE 
K0=2 

1850 CALL DELSPRITE(#1):: SU 
BEND 

1860 SUB LI <Z,S1,SP) :: FOR I 

=1 to z :: read ds :: displa 

Y AT(I+S1,SP)SIZE(LEN(D«)):D 

$ :: NEXT i :: subend 
1870 SUB L2(Z,S1,SP,F2):: IF 
S1 THEN 1880 ELSE 1890 
1880 FOR 1=1 TO Z :: READ D* 
: : CALL FARBE<D*,2,F2) : I DI 
SPLAY AT(I+S1,SP)SIZE(LEN(D* 

n:D* :: next i .:: sübexit . 

1890 FOR 1 = 1 TO Z : : READ D* 
:: CALL FARBE(D^,2,F2):: D= 
D+2 :: DISPLAY AT(8+D,SP)SIZ 

E(len(D*)):d$ :: next i :: d 
= o :: SUBEND 

1900 SUB DEL <DE) : : FOR 1 = 1 T 
o de : : next i :: subend 

1910 SUB TIME(MI,SEK,A) 

1920 IF A=3 THEN STD,M,SE=0 
1930 TIMER=-31879 
1940 CALL INIT 

1950 DISPLAY AT(4,12)SIZE(8) 
: h O h &STR$ (STD) I "&«’ , 0 ,, ßiSTR^ ( 
M) Ec" : "kSTR* (SE) 

1960 CALL LOAD(TIMER,NULL) 


1970 CALL PEEK(TIMER,TIME) 
1980 IF TIME<47 THEN 1970 _ 
1990 CALL LOAD(TIMER,NULL) 

2000 SE=SE+1 __ 

2010 IF SE=60 THEN 2020 ELSE 
2030 

2020 SE=0 ::.m=m+i 

2030 IF M=60 THEN 2040 ELSE 

2050 

2040 M=0 :: STD=STD+ 1 
2050 CALL HCHAR(4,14,32,8) 
2060 DISPLAY AT(4,12)SIZE(8) 

: "0"ßcSTR* (STD) : ,, & ,, 0 ,, &STRSi ( 
M)& M : M fcSTR$(SE) 

2070 CALL KEY(0,K,S):: IF K= 
13 THEN SUBEXIT 

2080 IF MI=0 THEN GOTO 2100 
ELSE 2090 

2090 IF M >=MI THEN SUBEXIT E 
LSE GOTO 1970 

2100 IF SEK=0 THEN SUBEXIT 
2110 IF SE >=SEK THEN SUBEXIT 
ELSE GOTO 1970 
2120 SUBEND 

2130 SUB CLEAN(Z,S1,S2, W) 
2140 FOR I=S1 TO S2 :: CALL 
VCHAR (Z, I , 143, W): CALL DEL ( 

30):: next i :: subend 

2150 SUB PUNKTE(A,E2()) 

2160 PKT=PKT+E2(A):: DISPLAY 
AT(4,26)SIZE(-2) l USING 
:E2(A):: subend 
2170 SUB UE(B*,A,W,F2) 

2180 CALL SCREEN(2) 

2190 FOR 1=1 TO 8 I: CALL CO 
LOR(I,2,F2):: NEXT I 
2200 CALL CHAR(95,"OOOOFFFFF 
FFF"):: FOR Z=1 TO 3 STEP 2 
:: CALL HCHAR(Z,1,95,32) : : N 
EXT Z :: CALL HCHAR(7,13,95, 
9) • . > 

2210 DISPLAY AT(2,1)SIZE(28) 
:b^ :: Display at(6,idsize( 
7):"AUFGABE" :^ DISPLAY AT(6 
, 19) SIZE (2) :STR^('A) 

2220 DISPLAY AT(4,2)SIZE(5): 
"wert:" :: Display at(4,22)S 
ize(4):"pkt:" :: Display at( 
4 , 7)SIZE (2) :STR$(W):: displa 
Y AT(4, 26):"OO" . . 

2230 SUBEND 
2240 SUB FEH 

2250 DISPLAY AT (23,9) :"BITTE 
..DIE" DISPLAY AT (24,1) : " 
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ALPHA-LOCK TASTE DRUECKEN i! 

" :: call del<400):: call hc 
HAR<23,1,32,64):: SUBEND 
2260 SUB TASTE(K) 

2270 CALL KEY<0,K,S):: IF S= 
O THEN 2270 
2280 SUBEND 
2290 SUB VH 

2300 FÜR 1 = 1 TO 32 :: CALL V 
CHAR<8, I,32, 17) : : CALL DEL < 5 

O):: next i :: subend 
2310 SUB TITEL 
2320 FOR 1=1 TO 12 :: CALL C 
OLOR<i,2,3):: NEXT i :: call 
COLOR<14,5,5):: CALL CLEAR 
: : CALL SCREEN <3) 

2330 CALL COLOR<1,2,1,2,2,9, 
3,16,7,4,2,9,5,2,9,6,2,9,7,2 
,9,8,2,9) 

2340 CALL COLOR<9 , 15, 1, 1O,2, 

1,11,6,2,12,2,1,13,6,1,14,6, 

9) 

2350 CALL CHAR(42,"O",43,RPT 
*< “F“, 16) ,47, "FF318181818181 
FF“,48,RPT*("FE",8),49,RPT*< 

" 7 F " , 8 ) ) 

2360 CALL CHAR<50,”007F7F7F7 
F7F7F7F",51,"OOFEFEFEFEFEFEF 
E",58,"OOOOFFFFOOOOOOOO",91, 
RPT* <"F", 16) ,96, "0103070F1F3 
F7FFF") 

2370 CALL CHAR<97,RPT*<"1F", 
8),98,"FFFEFCF8F0E0C080",99, 
RPT« <"FO“,8) ,100, "7FFFCFCEFE 
FEFCFC",101,"FF3FDFEFFFFFFFF 
E M ) 

2380 CALL CHAR<102,"FFFFF3F3 
7F7F3F3F M ,103, "FFFCFBF7FFFFF 
F7F“ , 104, " 7FFFCFCEFEFEFCFC *' , 
112,RPT*< H F",16) ,113,RPT*<"7 
F",8)) 

2390 CALL CHAR<114,RPT*<"FE” 

, 8) , 137, ”COCOFOFOFCFCFFFF", 1 
36, " 03030F0F3F3FFFFF",143,"0 

" ) ‘ . • " . •• • - . - 

2400 DISPLAY AT<2,2): H §I§N§T 
§E§L§L§I§G§E§N§Z§-§" :: DISP 


LAY AT <3,2) : 




::::::§" :: Display at<5, 

6):"§T§R§A§I§N§I§N§G§" 

2410 Display at<6,6):"§::::: 

:: Display at < i 
2,13) : "d-f H :: Display at < 13 , 
i3):"ge" :: Display at< 14,13 
) : "ac " 

2420 DISPLAY AT(15,11):p32 
p" r: DISPLAY AT<16,11):"rp 
Olpq" :: DISPLAY AT<17,11>:" 
rpOlpq" :: DISPLAY AT<18,8): 


'gggggggqgggggg 


2430 DISPLAY AT(19,7):" *gggg 
SSSSS399S ba -" DISPLAY AT(2 

O, 6) " ‘ggqgggqgggqggb. a" :: 

DISPLAY AT(21,6):"a.a...pa.p 


c . . a. . a 


2440 DISPLAY AT<22,6):"a.a.. 
.p..p...a..a" :: DISPLAY AT< 

23,6) : a. h..h...a" :: DI 

SPLAY AT <24,6) : "a. 

.a.< ENTER > " 

2450 FOR 1=1 TO 6 :: CALL SP 
RITE(#1,63,2,86,116):: NEXT 
I :: CALL DEL(450) 

2460 FOR 1=1 TO 3 :: CALL MO 
TION(#1,I,-1*2):: CALL MOTIO 
N<#I+3,I,1*2):: NEXT I 
2470 FOR 1=1 TO 6 I: CALL DI 
STANCE<#I,86,108,DIS):: IF I 
NT<SQR<DIS))>=I*8 THEN CALL 
MOTION(#1,0,0):: CALL patter 
N(#I,33) 

2480 NEXT I :: CALL SOUND(10 
0,262,0,330,0,392,0)*.: CALL 
SOUND <100,330,0,392,0,523,0) 
:: CALL SOUND(lOO,392,O,523, 
0,659,0):: FOR 1=0 TO 30 
2490 CALL SOUND<-50,523,I,65 
9,1,784,1):: NEXT I 
2500 CALL KEY(0,K,S):: IF S= 
O THEN 2460 

2510 CALL CLEAR *: : CALL CHAR 
SET :: CALL DELSPRITE(ALL):: 
SUBEND 


4-Farben Printer-Plotter PP-A4, Centronics-Schnittstelle, DIN A4 858,— Grafik Extended Basic mit deutschem Handbuch 347,— 

Slim Line Laufwerk 5,25”, 500 kByte - DS/DD 498,— 32 k-RAM-Erweiterung, seitlich ansteckbar 339,— 

Einbausatz für 2 Laufwerke in original Tl-Extension-Box m. Manual 95,— 32 k-RAM-Erweiterung mit Centronics-Schnittst. 498,50 

Disc-Steuerkarte, DD/DS bis zu 4 Laufwerken anschließbar 635,— Original-ÄTARI-Soft-Spiele, Jungle Position, 

NEUE PRODUKTE FÜR TI-99/4A Donkey Kong, Jungle Hunt, u.v.a.m. nur 79,— 

Extended Basic mit deutschem Handbuch 239,50 Preise inkl. Mwst., Info gratis, Lieferung gegen Nachnahme od: Vorauskasse. 

albs-Alltronic B. Schmidt • Postfach 1130 • 7136 Otisheim • Tel. (07041) 2747 • Telex 7263738 albs 
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TIPS & TRICKS 



UP-DRAW 

UP-Draw ist ein Hilfsprogramm, das Sie an jedes 
Hauptprogramm anbinden können. Es markiert Ih¬ 
nen Textstellen in Ihrem Hauptprogramm in jeder 
beliebigen Länge, Breite und Farbe. 

Aufgerufen wird das UP durch ‘CALL DRAW . 

Daß das Unterprogramm aktiv ist, sehen Sie zunächst 
nur an einem 5 Pixels großem Kreuz in der linken 
unteren Bildschirmecke. Führen Sie nun das Kreuz 
an die Bildschirmstelle, an der Sie mit der Markie¬ 


rung des Textes beginnen wollen. Durch einen kur¬ 
zen Druck auf Taste *H\ wandelt sich das Kreuz 
nun in einen vertikalen Pfeil um. Diesen führen Sie 
am oberen Rand des Textes entlang und drücken 
am Ende der von Ihnen gewünschten Markierungs¬ 
stelle wieder die Taste ‘H’. Jetzt wandelt sich der 
Cursor in einen horizontalen Pfeil um und kehrt 
an den Anfang-der Textstelle zurück, nun brauchen 
Sie nur noch die vertikale Seite der Textstelle abzu¬ 
fahren und den Vorgang durch ‘H’ zu beenden. Im 
selben Augenblick haben Sie auch schon den ge¬ 
wünschten Textausschnitt umrandet bekommen. 


10 ! *********************** 
12 ! * * 
14 ! * ** UP-DRAW ** * 

16 ! * Copyright 1984 by * 

18 ! * .Hartmut Koenig * 

20 ! * * 

22 ! * Bearbeitet vom * 

24 ! * Team des * 

26 ! * Aktuell Verlages * 

28 ! * MUENCHEN * 

30 ! * * 

32 ! * Benoetigte Geraete: * 

34 • * TI99/4A Konsole * 

36 ! * Ext. Basic * 

38 ! * Diskettenstation * 

40 ! * * 

42 ! * Speicherbelegung * 

44 ! * 1860 Bytes * 

46 ! * * 

48 ! *********************** 

56 ! 

58 SUB DRAW 

60 CALL CHAR(33,"OOOOOOOOOOO 
OFFFF",34,RPTS("Ol",8),35,"F 
FFF", 36,RPT$ <"80",8) ) 

62 CALL CHAR(37,"00000000001 
03810",38,"0004040404150E04" 
,39,"0004027F0204">:: CALL C 
QLOR(1,2,1) 

64 ZR,SPR,S1,S2,SCH=0 :: Z=2 

3 :: 8P=3 :: call sprite(#i, 

37,2,Z*8,SP-*8) . 

66 CALL KEY(0,K,S):: IF S=0 
THEN 66 

68 IF K=68 OR K=69 OR K=83 T 
HEN 78 ELSE IF K=72 THEN 88 
ELSE IF K< >88 THEN 66 
78 IF Z< = 1 OR Z> = 24 OR SP< = 1 
OR SP>=28 THEN 98 
80 IF (SCH=1 AND K<>68)OR(SC 
H=2 AND K<>88)THEN 98 


82 IF SCH=1 THEN S1=S1+1 ELS 
E IF SCH=2 THEN S2=S2+1 

84 IF K=69 THEN Z=Z-1 ELSE I 
F K=88 THEN Z=Z+1 ELSE IF K= 

83 THEN SP=SP~1 ELSE SP=SP+1 
86 GOTO 96 

88 ! **UP-SCHALTER** 

90 SCH=SCH+1 :: IF SCH>3 THE 
N 98 ELSE IF SCH=1 THEN ZR=Z 
:: SPR=SP :: call pattern<# 
1,38):: sl=l :: goto 66 

92 IF SCH=2 THEN CALL PATTER 
N(#l,39):: CALL LOCATE(#1,(Z 

r+i)*8,(spr-1)*8):: z=zr+ l : 

: sp=spr- l :: S2=i :: goto 6 


94 IF SCH=3 THEN CALL DELSPR 
ITE(#1):: GOTO 102 ELSE GOTO 
98 

96 CALL L0CATE(#1,Z*8,SP*8): 

: GOTO 66 

98 ! *UP- FEHLERMELDUNG* 

lOO DISPLAY AT(24,3):"FEHLER 
HAFTE EINGABE..." :: FOR DEL 
= 1 TO 450 : : NEXT DEL : I CAL 
L HCHAR(24, 1,32,32):: GOTO 6 
4 

102 ! **UP-RAHMEN** 

104 SPR=SPR+1 ! : ZR=ZR+1 

106 CALL HCHAR(ZR,SPR,33,S1) 
:: CALL VCHAR(ZR+1,SPR-1,34, 
S2):: CALL HCHAR(ZR+1+S2,SPR 
,<55, S1) : ; CALL VCHAR (ZR+1, SP 
R+Sl,36,S2) 

108 ! **UP-FARBE** 

HO DISPLAY AT ( 24,2)SIZE(19) 

: "FLAECHE FAERBEN ?JN" 

112 CALL KEY(0,K,S):: IF S=0 
THEN 112 
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MUREN SIE UNSEREN BEQUEMEN POSTSERVICE 



KOMMT REGELMÄSSIG 


ZU IHNEN 
INS HAUS 


Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schön ausverkauft ist? Oder „Euer" 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 30 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein unten ausschneiden-fotokopieren 
oder abschreiben, in einen Briefumschlag und ab 
per Post. TI REVUE kommt dann pünktlich ins 
Haus. 


WICHTIGE RECHT¬ 
LICHE GARANTIE! 

Sie körnten diesen Abo-Auftrag 
binnen einer Woche nach Eingang 


der Abo-Bestätigung durch den Ver¬ 
lag widerrufen - Postkarte genügt 
Ansonsten läuft dieser Auftrag je¬ 
weils für sechs Ausgaben, wenn ihm 
nicht vier Wochen vor Ablauf wider¬ 
sprochen wird, weiter. 


N • 


MUSS FÜR JEDEN TI- USER 


LISTINGS! USTINGS! USTINGS! 


MAGAZIN 

FÜR 

TI 99/4A 
&TI PC 



SPECIAL 


Achtung Tl-User! Jetzt kommt für Sie das große Listing-Sonderheft 
von TI-REVUE. Rund 150 Seiten Listings. Spiele, Profiprogramme, 
Lehrprogramme, für Schule und Hobby. An diesen Listings können 
Sie ersehen, wie andere Tl-User Aufgaben lösen. Ein unbedingtes 
Muß für jeden programmierenden Tl-Besitzer. Dazu als Sonderservice: 
Eine Übersicht aller Firmen, die noch Tl-Hard- und Software führen! 
Der große Tl-Katalog. Nur 12,80 DM! 

Erscheinung: Voraussichtlich Ende April/Anfang Mai. 

Reservieren Sie sich Ihr Exemplar mit dem Coupon auf der nächsten 
Seite. Achtung: Kein Geld senden, wir schicken per Nachnahme oder 
gegen Vorausrechnung bei Erscheinen! 








Ihre EDV-Lebensversicherung 
Hardware, Software und Mehr 
:im S c h a denf a 11 ! 

Nutzen Sie Ihren Computer 
gewerblich, dann muß Sie 
mein Angebot interessieren 



Coupon 

Ja, ich möchte von Ihrem Angebot 
Gebrauch machen. 


Bitte senden Sie mir bis auf Wider¬ 
ruf ab sofort jeweils die nächsten 
sechs Ausgaben an untenstehende 
Anschrift. 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI AKTUELL 

Abo-Service (4) 

Postfach 1107 

8044 UNTERSCHLEISSHEIM 


teme ----— 

/omame----—- 

Straße/Hausnr. ---- 

Plz/Ort-----— 

Ich bezahle:* 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung v 

□ bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort--—- 

Kontonummer----- 

Bankleitzahl-:—-—--:- 

(steht auf jedem Kontoauszug) 

Unterschrift--- 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen 
Unterschrift--- 
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Zu verkaufen: TI-Exten- 
ded Basic VB 200 DM. 

T. Vormann, Dellplatz 7/ 
002, 4100 Duisburg 


TI-Karten, 128 K, 80 Zei¬ 
chen, Z80 A, Telefon: 
02624/3817 


D. Modem 1200 Bd. zu 
verkaufen. VB 500 DM, 
Alpha Datasystems LTD. 
Typ SB 1212 D. G. Weich- 
selbaumer, Hoher Hecken¬ 
weg 282, 4400 Münster 


TI 99 /4A Multiplan neu¬ 
wertig. VB 230 DM. 

Tel. 02821/18399 


Verk. RS 232 + 32 K 
(Ext.) G. Irmer, Bolzstr. 
24, 7014 Komwestheim 


Suche Erfahrungs- und 
Programmtausch im 
Großraum Köln und druk- 
ke Listings von Disk / 
Cass gegen Vorauszahlung 
der Unkosten. Bernhard 
Betz, Siegburger Str. 111, 
5000 Köln 21 


Suche Modulexp. Disk 
int. o. Ext. TI-Multiplan 
Tl-Writer, Tel. 07240/ 
5300 


KLEINANZEIGEN SERVICE 


COUPON 


Die große Börse für jeden Zweck in TI REVUE. Wenn Sie etwas suchen, etwas verkaufen 
oder tauschen wollen, Kontakte wünschen oder, oder, oder, dann ist TI REVUE die richtige 
Zeitschrift für Sie. Zum sagenhaften Kennenlern-Preis von DM 1,50 pro Zeile! Einfach aus¬ 
füllen, ausschneiden und zusammen mit einem Verrechnungsscheck über die entsprechende 
Summe (oder in Briefmarken) absenden an 


2 Zeilen 
4 Zeilen 
6 Zeilen 
8 Zeilen 
10 Zeilen 


() Bitte hier ankreuzen, wenn die Anzeige unter Chiffre erscheinen soll. Chiffre-Gebühr 
10 DM. 

Hiermit bestelle ich obige Kleinanzeige. Einen Verrechnungsscheck über DM- 

habe ich beigelegt. Mir ist bekannt, daß Anzeigenaufträge ohne ausgefuUten und unter¬ 
schriebenen Verrechnungsscheck nicht bearbeitet werden. 


TI REVUE 

Anzeigenabtlg. 
Postfach 1107 
8044 Lohhof 








TajzAuch zinzr (?) Katastro^e 


Kennen Sie eigentlich das McMurphy-Gesetz? 
Nein? Es lautet ganz einfach: 

„Alles, was schiefgehen kann, geht schief.“ 
Wenn es je eines Beweises für dieses Gesetz bedurft 
hatte, hier ist er. Wobei wir uns nicht scheuen, 
den Balken im eigenen Auge anstatt des Splitters in 
fremden Pupillen zu sehen. 

Wer, wie TI REVUE, eine eindeutige Sprache spricht, 
muß sie sich auch selbst um die Ohren 
schlagen lassen. 


KATASTROPHE 


Juli ’84: TI-REVUE Nr 1 
kommt auf den Markt. 
August ’84: Breite Zu¬ 
stimmung der Leser 
September ’84: TI- 
REVUE Nr. 2 kommt 
auf den Markt 
Oktober ’84: Noch mehr 
Zustimmung unserer 
Leser 

November ’84: TI-REVUE 
Nr. 3 ist am Kiosk 
Dezember ’84: Die Zahl 
der Abonennten hat nach 
drei Heften die Schall¬ 
mauer von 1000 bereits 
überschritten. 

Januar 1985: der Vertrieb 
legt die ersten(!) Ver¬ 
kaufszahlen des Heftes 1 
vor, immerhin seit sechs 
Monaten auf dem Markt. 
Ergebnis: In Großstädten 
und bestimmten Ballungs¬ 
gebieten phantastisch ver¬ 
kauft, auf dem „flachen 
Land“ Interesse gleich 
.Null. 

Auftrag an den Vertrieb: 
Komplette Überarbeitung 
des Verteilers- sprich des 
Belieferungsschemas. 
Beschluß des Verlages — 
der in die ersten drei Aus¬ 
gaben viel Geld investiert 
hat: Das Heft 4 wird erst 
gedruckt, wenn die Zah¬ 
len für Heft 1—3 vor¬ 
liegen. 

März ’85: Die Zahlen lie¬ 
gen vor, ein neues Ver¬ 
triebsschema ist erarbei¬ 
tet, das Heft wird ge¬ 
druckt, Sie haben es in 
der Hand. 


KATASTROPHE 2: 


März 1984: Der Verlag 
führt Gespräche mit etwa 
15 Fachjournalisten und 
Tl-Usern über die geplan¬ 
te TI-REVUE. 

Alle wollen mitmachen 
und Beiträge liefern. ' 
Das klappt für Heft 1. 

Für Heft 2 meldet sich 
über die Hälfte erst mal 


ab — Urlaub. 

Das Heft erscheint trotz¬ 
dem 

Termin zu Heft 3: Am 
Redaktionsschlußtag — 
außer den Programmen 
unserer Leser — kein ein¬ 
ziger Beitrag abgeliefert. 
Der Chef vom Dienst ro¬ 
tiert. Er schafft es, Heft 3 
erscheint mit geringer 
Verspätung. 

Termin zu Heft 4: 

Keine Beiträge vorhanden, 
Vertriebszahlen nicht be¬ 
kannt. Verlagsbeschluß: 
Siehe oben. Verlagsbe¬ 
schluß 2: Das Objekt 
muß in neue Hände. 
Ergebnis: Wir haben dem 
uns betreuenden München 
Aktuell Verlag den Ver¬ 
trag gekündigt, neue Mit¬ 
arbeiter gewonnen und 
Heft 4 herausgebracht. 
Entsprechende Verträge 
sichern jetzt das pünkt¬ 
liche Erscheinen des 
Heftes. 

KATASTROPHE 3: 


So ab Dezember 1984 häu¬ 
fen sich bei uns — dem 
Verlag - die Anrufe: 

„Ich habe in Heft — folgt 
die Nummer — einen Bei¬ 
trag, ein Programm ver¬ 
öffentlicht. Gibt es dafür 
auch Geld? 

Erschreckte Rückfrage 
beim dafür zuständigen 
Chef vom Dienst (C.v.D.) 
„Warum sind die Hono¬ 
rare noch nicht angewie¬ 
sen?“ Antwort: „Ich habe 
noch keine Honorarliste 
der Redaktion!“ 

Der Verlag hat diese Ho¬ 
norar-Liste heute noch 
nicht. 

Verlagsbeschluß: Jeder,, 
der an Heft 1, 2 oder 3 
mitgearbeitet hat und noch 
keine Honorarbenachrich¬ 
tigung hat, wende sich 
bitte mit folgenden An¬ 
gaben: Name, Anschrift 
und Thema plus Heft- 
Nummer an „TI-REVUE, 
Honorarabteilung, Post¬ 
fach 1107, 8044 Lohhof. 


Wir antworten binnen 
einer Woche. 

KATASTROPHE 4 - 
(die endgültig letzte?) — 

Wir bieten allen unseren 
Lesern einen besonderen 
Service an: Jedes vom 
Autor freigegebene 
Listing auf einer Pro¬ 
gramm-Kassette für ganze 
10 DM nach dem Motto: 
Raubkopieren keine 
Chance. Der Aktuell- 
Kassetten-Service nimmt 
seine Arbeit auf — neben¬ 
beruflich selbstverständ¬ 
lich, denn an den Kasset¬ 
ten soll ja keiner verdie¬ 
nen, auch der Verlag 
nicht. 

Die Kassetten-des Heftes 1 
werden verschickt. 

Für Heft 2 wurden einige 
Hundert vorbestellt - 
und selbstverständlich 
ausgeliefert. 

Dann kommen die Nach¬ 
bestellungen. Der Kasset- 
ten-Service bestellt neue 
Kopien beim Kopierwerk. 
Lieferzeit: drei Wochen. 
Die Kassetten kommen. 
100 davon werden am 
Samstag versandt, der Rest 
soll Montag/Dienstag 
rausgehen. 

Montagmittag häufen sich 
die Anrufe: „Meine Kas¬ 
sette läuft nicht!“ 

Der Versand der bereits 
fertig verpackten Kasset¬ 
ten wird sofort gestoppt, 
40 fertige Kassetten wer¬ 
den an uns bekannte TI- 
User zur Kontrolle ver¬ 
schickt. 

Eine Woche später abso¬ 
luter Horror: Nicht eine 
einzige der zur Probe ver¬ 
schickten Kassetten läuft. 
Der Kassettenversand fer¬ 
tigt ein neues Musterband. 
Die Kopierfirma teilt mit: 
Wegen Arbeitsüberlastung 
in den nächsten Wochen 
nicht mit einer Ausliefer 
rung zu rechnen. * \ 

Mittlerweile kommen die. 
Bestellungen für die Kas¬ 
setten aus Heft 3. 

Der Kassettenservice fer¬ 
tigt ein drittes Musterband. 
Zum zweitenmale laufen 
sie nicht. 

Vorsichtige Frage an den 
Kopierer: Habt ihr über¬ 
haupt einen 99/4A, um 
selbst prüfen zu können? 
Antwort: Nein. 

Zwei Wochen später: Der 
Kopierer hat sich einen 
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TI beschafft. Wir schicken 
das dritte bzw. das vierte 
Musterband. 

10. Januar 1985: Anruf 
des Kopierwerkes: Wir ha¬ 
ben die Musterbänder, wir 
haben den TI, aber Ihre 
Musterbänder werden bei 
uns nicht geladen! 
Zähneknirschen, Kopf¬ 
kratzen, Ausprobieren. 
Unsere Zweitkopie läuft 
auf allen fünf TI. Rück¬ 
frage an den Kopierer: 

Habt Ihr auch das Exten- 
ded Basic-Modul einge¬ 
steckt: Antwort: Was 

ist das? 

Anruf bei Radix, Ham¬ 
burg. Könnt Ihr? Antwort, 
nein aber. Zwar nicht das 
Original, aber einen Nach¬ 
bau. 

24. Januar: Das Radix- 
Modul trifft ein und wird 
sofort weitergeleitet. 

30. Januar: Anruf des 
Kopierwerkes: Ihre Muster¬ 
bänder laufen, unsere 
Probekopien ebenfalls. 

Der Kassettenservice be¬ 
stellt umgehend Muster. 

6. Februar: Die Muster 
gehen ein. Sie werden 
noch am gleichen Tag zur 
Kontrolle an mehrere 
TI-Besitzer versandt. 

11. Februar: Sie laufen, 
sie laufen nicht, sie laufen, 
sie laufen nicht. 

12. Februar: Der Kopierer 
wird beauftragt, zusätzlich 
Tl-User im Raum Dort¬ 
mund zu finden und ihnen 
Muster-Kassetten zu über¬ 
mitteln. 

18. Februar: Rückruf des 
Kopierers: Hier laufen 
alle Kassetten einwandfrei. 
22. Februar: Anfrage an 
den Kopierer: Wann kön¬ 
nen wir mit den Kassetten 
rechnen? Antwort: Es 
wird noch dauern, weil 
nämlich beim Kopieren ' 
der Kassetten plötzlich 
statische Aufladungen auf- 
treten und damit unsere 
Konfektionierungsmaschi¬ 
ne streikt. - * 

Ist das der Grund? 

Wir warten. 

25. Februar: Die Kassetten 
aus Heft 3 gehen ein, von 
Hand gefertigt, und wer¬ 
den versandt. 

28. Februar: Noch kein 
Protest, scheinbar funktio¬ 
nieren die Programme. - 
Nr. 2 läuft, immer noch 
in Nordrhein-Westfalen, 
aber nicht in Bayern. Merde, 
sagen dazu die Franzosen. 



114 IF K=78 OR K=110 THEN CA 
LL HCHAR(24,1,32,32):: SUBEX 
IT 

116 IF K< >74 OR K< >104 THEN 
112 ELSE DISPLAY AT(24,2):"V 
ORDERGRUND 2 ?" :: ACCEPT AT 

(24,14)SIZE(-2)UALIDATE(DIGI 

T):vf :: if vf<i or vf>16 th 

EN 116 

118 DISPLAY ATT 24,2) : "HINTER 
GRUND 3 ?" :: ACCEPT AT(24,1 

4)SIZE(-2)VALIDATE(DIGIT):HF 
:: IF HF<1 OR HF >16 THEN 11 

8 

120 DISPLAY AT(24,2):"MOMENT 
BITTE..." :: FOR 1=9 TO 14 

:: CALL COLOR(I,VF,HF):: NEX 
T I :: CALL CHAR<92,"O") 

122 FOR I=ZR+1 TO ZR+S2 :: F 
OR J=SPR TO SPR+(S1-1):: CAL 
L GCHAR(I,J,GC):: IF GC<46 O 
R GC >93 THEN GC = 92 
124 CALL CHARPAT(GC,CH$):: C 
ALL CHAR(GC+50,CH$):: CALL H 
CHAR(I,J,GC+50,1):: NEXT J : 

: next I :: call hchar(24,1, 
32,32):: SUBEND 

Wollen Sie ihn nun auch noch einfärben, können 
Sie dies im Dialog mit dem Computer durchführen, 
anschließend gibt das UP wieder ans Hauptpro¬ 
gramm zurück, nachdem es den Dialog mit Ihnen 
in Zeile 24 gelöscht hat. 

Hartmut König 


1:0BIG. .AUS.ANSV. ANZAHL DER SCHALTER 2:EIN,AUS/0RIG. ,ANSV. .AUTO. 

2-ElN.AUS/CARRIER ANZAHL DER ANZEIGEN 3:CARRIER/0RIGINATE/ANSVER 

BATT.6V/NETZT.12V STROMVERSORGUNG BATT.9V/AKKU 9V/NETZT.9-15V 

•BEIDE KOPPLER HABEN EINE FTZ■-ZULASSUNG ! ÜBERTRAGUNG HIT 300 BAUD/VOLLD. 


SEA SATTLE 

Sie sind an Bord eines alten U-Bootes und müssen 
die feindliche Flotte versenken. Haben Sie alle 4 
Schiffe versenkt, bekommen Sie einen besseren Job 
auf dem U-Boot. Nach 4 Runden ist das Spiel ge¬ 
schafft und Sie bekommen einen Orden als Kapitän. 
Schaffen Sie es nicht, ist beim ersten Treffer, das 
Ihr Boot eingesteckt hat, das Spiel zu Ende und der 
Computer zeigt den erreichten Punktestand an. 
Wenn am Anfang die Position gefragt wird, müssen 
Sie zwei Zahlen eingeben,die durch ein Komma ge¬ 
trennt sein müssen. Die erste darf zwischen 0 und 
25, die zweite zwischen 0 und 33 stehen. Ausführ¬ 
liche Angaben im Spiel. Es läuft mit Extended 
Basic, ist aber sehr leicht umzuschreiben auf TI- 
Basic. Der Sprachsynthesizer ist wahlweise nutzbar. 

Anmerkung: Ein nettes Spiel, das auch abstraktes 
Denken voraussetzt. Leider wie so viele Abenteuer- 
Spiele ohne Grafik und entsprechenden Sound. 

Man kann es jedoch als Übungsprogramm betrach¬ 
ten das mit entsprechenden geringen Änderungen 
auch in Basic läuft. Ebenso steht es dem Leser frei, 
es mit Grafik oder Sound zu versetzen. Aus diesem 
Grund wurden bewußt bestimmte Zeilen nicht 
geändert!! 


HUBERT 

Das Spiel ist aus zweierlei Gründen nicht ganz ein¬ 
fach einzutippen: 1. Es ist nur spärlich dokumen¬ 
tiert und nicht besonders übersichtlich aufgebaut, 
dafür erreicht es aber gerade deshalb eine hohe 
Geschwindigkeit, was ich im Endeffekt für sinn¬ 
voller halte. 2. Einige Spielsituationen werden 
wiederum zur Geschwindigkeitsoptimierung über 
die ERROR-Handhabung analysiert, was verständ¬ 
licherweise erst funktioniert, wenn das Programm 
fehlerfrei eingegeben wurde. Dazu ein Tip: 

1) Programm eingeben ohne Zeilen 1490 u. 2020,~ 

2) Programm laufen lassen und anhand der Fehler¬ 
meldungen korrigieren (wenn nötig), 

3) Zeile 1490 ergänzen und 2020 rem, 

4) sollte das Programm jetzt fehlerfrei laufen, bis 
Hubert einmal von der Pyramide gefallen ist,-wird 
die Zeile 2020 in 2020 ON ERROR 2020 geändert. 
Danach müßte das Programm einwandfrei laufen. 



ANSCHLUSS!«BEL US232 
TERMINAL EMULATOR II 


39 _T I OO V.24 I NTERFACE.ext.mit KABEL 
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JOCHEN GERHARD & BETTINA VAN MEGERN GbR VERSAND pat NN o. VK 
Höhenstraße 74b4000 Düsseldorf Telefon: 0211-776577 Rufen Sieanl 9-19Uhr! 


SURVIVOR 

Survivors ist ein Strategiespiel für 2 Personen. 
Gespielt wird in einem 10x10 großen Viereck. Je¬ 
der Spieler erhält am Anfang eine bestimmte An¬ 
zahl von Zellen. Sieger ist, wer seine Zellen nach 
den Conway-Regeln am längsten am Leben erhalten 
konnte. Dies ist ein ganz hervorragendes Strategie¬ 
spiel für die Grundversion. Bildschirmausgabe und 
Benutzerfiihrung sind sehr gut programmiert wor¬ 
den. Das Programm kontrolliert sich selbst, so daß 
keine Fehleingaben oder Programmabstürze mög- — 
lieh sind. Dieses Spiel ist sehr zu empfehlen. M 
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* - SEA-' BATTLE * 

* COPYRIGHT 1984 BY * 

* JOERG ROEMER * 

* BEARBEITET VOM . * 

* TEAM DES * 

* AKTUELL VERLAGES * 

* • . MUENCHEN * 

*,BENOETIGTE GERAETE * 

* TI 99/4 A KONSOLE * 

* TI EXTENDET BASIC * 

* DISK ODER KASSETTE * 


* * 

* SPEICHERBELEGUNG * 

* . BYTES * 

* * 


! ********************** 
CALL CLEAR ' 

PRINT "SEA-BATTL 
PRINT 

PRINT n (C) COPYRIGHT 198 
PRINT 

PRINT "BY JOERG ROEMER.. 

.SULZBACHERSTR. 

.6570 KIRN/NAHE 


330 PRINT "TEL.:06752/4857" 
340 print : : : 

350 PUNKTE=0 
360 Q=0 
370 RUNDE=0 
380 print : : : 

390 AS="“ 

400 B*="" 

; 410 C*=“ " , . . 

420 FS="" 

430 UEBER=0 

440 INPUT "MOECHTEST DU ANWE 
ISUNGEN ? <J/N):":vs 

450: IF V*="J" THEN 470 ELSE 
460 - ' 

460 IF V$="N" THEN 760 ELSE 
380 

470 CALL CLEAR 

vV-Y 480 PRINT “SIE BEFINDEN SICH 

MIT IHREM U-BOOT AUF DEM ME 
ER DASS IN..24*32.. KM Ä 2 AUFG 
ETEILT IST.“ 

490 PRINT "EBENFALLS BEFINDE 
N SICH DREIKREUTZER UND EIN 
FLUGZEUG-..TRAEGER IN DIESEM 
GEBIET." ' . 

500 PRINT "IHR AUFTRAG IST E 
S DEN FEINDZU VERNICHTEN.DA 
DAS ABER...DEM GEGNER GARNIC 
HT GEFAELLT" 


510 PRINT ",VERSUCHT ER DAS 
GLEICHE BEIIHNEN!" 

520 PRINT : 

530 PRINT "DAS SPIEL GEHT UE 
BER 4 RUN- DEN!WENN SIE DIE 
NAECHSTE...RUNDE ERREICHEN W 
ERDEN SIE" 

540 PRINT "BEFOERDERT.RUNDE 
1=SCHIFFS- KOCH,RUNDE 2=MATR 
OSE,RUNDE 3=0FFIZIER,RUNDE 4 
=KAPITAEN!" 

550 print : : : 

560 INPUT "WEITER ? " : VS 
570 CALL CLEAR 

580 PRINT "BEFEHLE :.. 

.1)OSTWAERTS. 

.2)WESTWAERTS" 

590 PRINT "3)SUEDWAERTS. 

.4)NORDWAERTS. 

.5)AUFGEBEN" 

600 PRINT "6)PERISKOP AUSFAH 


REN.7) TORPEDO ABFEUER 

N.8) BEFEHLSTABELLE" 


610 PRINT "9)UEBERSICHT. 

.10)UEBERSICHT 

620 INPUT "WEITER ?":V* 
630 CALL CLEAR 
640 PRINT "BEWEGUNG:" 
650 PRINT : 

660 PRINT ".4. 


. 2 < > 1 " 

670 PRINT ".v. 

.3 " 

680 PRINT I 

690 PRINT "P.S.:SIE DUERFEN 

IN EINER_RUNDE NUR 5 MAL D 

IE UEBER-..SICHT ,UND NUR EI 
NMAL IM" 

700 PRINT "GANZEN SPIEL DEN 
HYPERSPRUNGBENUTZEN!!!" 

710 PRINT "WENN SIE EIN SCHI 
FF VERSEN- KEN NEHMEN SIE DE 
YSSEN POSSI-TION EIN«WENN ALS 
O ZWEI 

720 PRINT "SCHIFFE AUF EINEM 
FELD STE- HEN-^ODER EIN -fSCHI 
FF HINTER DEM 'ANDEREN STEH 
T,IST ES 

730 PRINT "RATSAM AUFZUGEBEN 
UM WENIG- STENS DREI PUNKTE 
ZU BEKOM- MEN ! ! ! " 

740 PRINT : 

750 INPUT "FERTIG ?" : VS 
760 CALL CLEAR 
770 RANDOMIZE 
780 RUNDE = RUNDE+1 
30 790 PRINT "RUNDE "J 


RUNDE 






















800 A*="" 

810 B*="" 

820 C$=" " 

830 D*="" 

840 F*= u " 

850 UEBER=0 

860 A1=INT(25*RND) 

870 IF A1=0 THEN 860 
880 A2=INT(33*RND) 

890 IF A2=0 THEN 380 
900 B1=INT(25*RND) 

910 IF B1=0 THEN 900 
920 B2=INT (33-X-RND) 

930 IF B2=0 THEN 920 
940 C3=INT(25*RND) 

950 IF C3=0 THEN 940 
960 C4=INT(33*RND) 

970 IF C 4 = 0 THEN 960 
980 F1=INT(25*RND) 

990 IF F1=0 THEN 980 
1000 F2=INT(33*RND) 

1010 IF F2=0 THEN 1000 
1020 FOR X=1 TO 1000 
1030 NEXT X 

1040 INPUT "WO SOLL IHR U-BO 

OT.AUFTAUCHEN?" : Ul , 

U2 

1050 IF U1<1 THEN 1040 ELSE 
1060 

1060 IF U2<1 THEN 1040 ELSE 
1070 

1070 IF Ul>24 THEN 1040 ELSE 
1080 

1080 IF U2 >32 THEN 1040 ELSE 
1090 

1090 IF U1=A1 THEN 1100 ELSE 
1110 

HOO'lF U2=A2 THEN 1190 ELSE 
1110 

1110 IF Ul=B1 THEN 1120 ELSE 
1130 

1120 IF U2=B2 THEN 1290 ELSE 
1130 

1130 IF U1=C3 THEN 1140 ELSE 
1150 

1140 IF U2=C4 THEN 1390 ELSE 
1150 

1150 IF U1=F1 THEN 1160 ELSE 
1 170 

1160 IF U2=F2 THEN 1490 ELSE 
1170 

1170 CALL CLEAR 
1180 GOTO 1590 
1190 PRINT : : 

1200 PRINT U M S*#^% 


1220 PRINT "KREUTZER SEA-WUL 
F HAT SIE...ZERSTOERT!!!" 

1230 FOR X=i TO 1000 
1240 NEXT X 
1250 PRINT : : 

1260 PRINT "SIE HABEN "5 PUNK 
TEJ" PUNKTE ERREICHT!!" 

1270 CALL SAY("GAMES OVER") 
1280 STOP 
1290 PRINT : : 

1300 PRINT "§%*#*B U M S 
§" 

1310 CALL SAY("SORRY") 

1320 PRINT "KREUTZER SIR WAS 
HINGTON HAT SIE ZERSTOERT!!!" 
1330 FOR X=1 TO 1000 
1340 NEXT X 
1350 PRINT : : 

1360 PRINT "SIE HABEN " jPUNK 
TE;" PUNKTE ERREICHT!!" 

1370 CALL SAY("GAMES OVER") 
1380 STOP 
1390 PRINT : : 

140 0 PRINT "§%$#*B U M S**4*% 
§" 

1410 CALL SAY("SORRY") 

1420 PRINT "KREUTZER FIRE-BI 
RD HAT SIE..ZERSTOERT!!!" 

1430 FOR X=1 TO 1000 
1440 NEXT X 
1450 PRINT : : 

1460 PRINT "SIE HABEN " 5 PUNK 
TEJ" PUNKTE ERREICHT!!" 

1470 CALL SAY("GAMES OVER") 
1480 STOP 
1490 PRINT : : 

1500 PRINT "§=%*#*B U M S*#*% 

1510 CALL SAY("SORRY") 

1520 PRINT "FLUGZEUGTRAEGER 
SHAPPLANE..-HAT SIE ZERSTOER 
T ! ! ! " ' 

1530 FOR X=1 TO 1000 
1540 NEXT X 
1550 PRINT : : 

1560 .PRINT "SIE HABEN ";PUNK 
TE;" PUNKTE ERREICHT!!" 

1570 CALL SAY("GAMES OVER") 
1580 STOP 
1590 CALL CLEAR 
1600 PRINT : : 

1610 INPUT "WAS BEFIEHLST DU 
?":BEF 

1620 IF BEF >10 THEN 1640 ELS 
E 1630 

1630 IF BEF<1 THEN 1640 ELSE 

I 1660 


1210 CALL SAY("SORRY") 




1640 CALL SAY("ERROR IN DATA 


.TRY 

AGAIN") 

• - — • • 


1650 

GOTO 1590 


1 660 

IF 

BEF= 1 

THEN 

1810 

1670 

IF 

BEF=2 

THEN 

1860 

1680 

IF 

BEF = 3 

THEN 

1910 

1690 

IF 

BEF=4 

THEN 

1960 

1700 

IF 

BEF = 5 

THEN 

2010 

1710 

IF 

BEF = 6 

THEN 

2150 

17 20 

IF 

BEF = 7 

THEN 

2310 

1730 

IF 

BEF = 8 

THEN 

4230 

1740 

IF 

BEF = 9 

THEN 

1760 

1750 

IF 

BEF=10 

THEN 4540 

1760 

UEBER=UEBER+1 


1770 

IF 

UEBER >5 THEN 1780 EL 

SE 1800 




1780 

PRINT "LEIDER 

KOENNEN H 

ABEN 

SIE 

. . . .SCHON 5 

. .MAL DIE 


UEBERSICHT BENUTZT!!" 

1790 GOTO 1600 
1800 GOTO 4330 
1810 U2=U2+1 

1820 IF U2 >32 THEN 1830 ELSE 
1850 

1830 U2=32 
1840 GOTO 1590 
1850 GOTO 3140 
1860 U2=U2-1 

1870 IF U2<1 THEN 1880 ELSE 
1900 

1880 U2= 1 
1890 GOTO 1590 
1900 GOTO 3140 
1910 U1=U1+1 

1920 IF Ul>24 THEN 1930 ELSE 
1950 

1930 U1=32 
1940 GOTO 1590 
1950 GOTO 3140 
1960 U1=U1-1 

1970 IF U1<1 THEN 1980 ELSE 
2000 

1980 U1 = 1 
1990 GOTO 1590 
2000 GOTO 3140 
2010 RANDOMIZE 
2020 AS=INT(101*RND) 

2030 IF AS >60 THEN 2040 ELSE 
2100 

2040 PRINT "DER FEIND HAT DI 
E KAPITULA- TION ANGENOMMEN! 

I I «I 

2050 PUNKTE=PUNKTE+3 

2060 PRINT "SIE HABEN ";PUNK 

TEJ" PUNKTE ERREICHT!!" 

2070 FOR X= 1 TO lOOO 
2080 NEXT X 
2090 STOP 


2100 PRINT "***A'B G E L E H 
N T !■***' " 

2110 FOR X=1 TO 1000 
2120 NEXT X 
2130 PRINT : : 

2140 GOTO 3150 

2150 IF A*="A" THEN 2180 ELS 
E 2160 

2160 PRINT "KREUTZER SEA-WUL 
F IST AUF:.."j Al;",";A2; 

2170 PRINT : 

2180 IF B*="B" THEN 2210 ELS 
E 2190 

2190 PRINT "KREUTZER SIR WAS 
HINGTON AUF:"JBlj",";B2; 

2200 PRINT : 

2210 IF C$="C" THEN 2240 ELS 
E 2220 

2220 PRINT “KREUTZER FIRE-BI 
RD IST AUF: ";C3;",";C4; 

2230 PRINT : 

2240 IF FS="F" THEN 2260 ELS 
E 2250 

2250 PRINT "FLUGZEUGTRAEGER 
SHAPPLANE... IST AUF : "j F 1 j " , " 

5 F2; 


2260 

print : : 


2270 

INPUT "PERISKOP EINFAHR 

EN ?. 

. (J/n):":ps 

2280 

IF P$="J" THEN 2300 ELS 

E 2290 


2290 

IF P$<>"N" 

THEN 2260 EL 

SE 2150 


2300 

GOTO 3140 


2310 

PRINT "TORPEDO WIRD EIN 

GELEGT!" 


2320 

FOR X=1 TO 

1000 

2330 

NEXT X 


2340 

PRINT : : 


2350 

PRINT "FERTIG!" 

2360 

PRINT : : 


2370 

INPUT "WIEVIELE FELDER 

SOLL 

DER.... TORPEDO FLIEGEN? 

(MAX. 

2! ) : ": Q 


2380 

IF Q>2 THEN 

2370 

2390 

IF Q<1 THEN 

2370 

2400 

IF Q=1 THEN 

2420 

2410 

IF 0=2 THEN 

2440 

2420 

K=1 


2430 

GOTO 2450 


2440 

K=2 


2450 

PRINT : : 


2460 

INPUT "IN WELCHE RICHTU 

NG? < 1 

, 2,3,4) : " : D 


2470 

IF D >4 THEN 

2450 

2480 

IF D<1 THEN 

2450 

2490 

IF D=1 THEN 

2530 ELSE 2 
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2500 IF D=2 THEN 2890 ELSE 2 
510 

2510 IF D=3 THEN 2930 ELSE 2 
520 

2520 IF D=4 THEN 3090 ELSE 2 
450 

2530 U2=U2+K 

2540 IF U2>32 THEN 2550 ELSE 
2570 

2550 PRINT "ZU WEIT!" 

2560 GOTO 2310 

2570 IF U2=A2 THEN 2610 ELSE 
2580 

2580 IF U2=B2 THEN 2680 ELSE 
2590 

2590 IF U 2 = C 4 THEN 2750 ELSE 
2600 

2600 IF U2=F2 THEN 2820 ELSE 
3040 

2610 IF U1=A1 THEN 2620 ELSE 
3040 

2620 A$="A" 

2630 PRINT "KREUTZER SEA-WUL 
F OERSENKT! H 

2640 CALL SAY("OERY GOOD") 
2650 PUNKTE=PUNKTE+1 
2660 INPUT “WEITER?":O* 

2670 GOTO 3140 

2680 IF U1=B1 THEN 2690 ELSE 
3040 " 

2690 B$="B" 

2700 PRINT "KREUTZER SIR WAS 
HINGTON IST ZERSTOERT!!!" 
2710 CALL SAY("OERY GOOD") 
2720 PUNKTE=PUNKTE+1 
2730 INPUT "WEITER?":V* 

2740 GOTO 3140 

2750 IF U1=C3 THEN 2760 ELSE 
- 3040 

2760 C*="C" 

2770 PRINT "KREUTZER FIRE-BI 
RD VERSENKT!" 

2780 CALL. SAYCVERY GOOD”) 
2790 PUNKTE-PUNKTE+1 
2800 INPUT "WEITER?":V* 

2810 GOTO 3140 

2820 IF U1=F1 THEN 2830 ELSE 
3040 

2830 F$="F" 

2840 PRINT "FLUGZEUGTRAEGER 
SHAPPLANE...IST VERSENKT!!!" 
2850 CALL SAY < "VERY GOOD") 
2860 FUNKTE—PUNKTE* 2 
2870 INPUT " WEITER? ■*' : V« 

2880 GOTO 3140 
2890 U2=U2-K 

2900 IF U2< 1 THEN 2910 ELSE 
2570 


2910 PRINT "ZU KURZ!!" 

2920 GOTO 2310 
2930 U1=U1+K 

2940 IF Ul>24 THEN 2550 ELSE 
2950 

2950 IF U1=A1 THEN 2990 ELSE 
2960 

2960 IF U1 = B1 THEN 3010 ELSE 
2970 

2970 IF U1=C3 THEN 3020 ELSE 
2930 

2980 IF U1=F1 THEN 3030 ELSE 
3040 

2990 IF U2=A2 THEN 3000 ELSE 
3040 

3000 GOTO 2620 

3010 IF U2—E2 THEN 2690 ELSE 
3040 

3020 IF U 2 = C 4 THEN 2760 ELSE 
304 0 

3030 IF U 2 = F 2 THEN 2830 ELSE 
3040 

3040 PRINT : : 

3050 PRINT "**-*FEHLSCHUSS!** 
*" 

3060 FOR X= 1 TO 500 
3070 NEXT X 
3080 GOTO 3140 
3090 U1 = U1 - K 

3100 IF U1<1 THEN 2910 ELSE 
2950 

3110 F$= B DU" 

3120 CALL CLEAR 

3130 GOTO 580 

3140 CALL CLEAR 

3150 PRINT "IHRE POSSITION:" 

;ui;",";U2; 

3160 PRINT : : 

3170 IF A$="A" THEN 3370 
3180 IF A1< U1 THEN 3210 
3190 IF Al>U1 THEN 3230 
3200 IF A1=U1 THEN 3250 
3210 'Al =A 1 + 1 
3220 GOTO 3260 
3230 A1=A1-1 
3240 GOTO 3260 
3250 A1 = A1 

3260 IF A2<U2 THEN 3290 
3270 IF A2 >U2 THEN 3320 
3280 IF A2=U2 THEN 3350 
3290 A2=A2+1 

3300 IF A2=U2 THEN 3360 ELSE 
3310 

3310 GOTO 3370 
3320 A2=A2—1 

3330 IF A2=U2 THEN 3360 ELSE 
3340 

33 3340 GOTO 3370 




3350 A2=A2 

3360 IF A1=U1 THEN 1190 ELSE 
3370 

3370 IF THEN 3550 

3380 IF Bl<Ul THEN 3410 
3390 IF Bl>U1 THEN 3430 
3400 IF B1=U1 THEN 3450 
3410 B1=B1+1 
3420 GOTO 3460 
3430 B1=B1-1 
3440 GOTO 3460 
3450 Bi=Bl 

3460 IF B2< U2 THEN 3490 
3470 IF B2 >U2 THEN 3510 
3480 IF B2=U2 THEN 3530 
3490 B2=B2+1 

3500 IF B2=U2 THEN 3540 ELSE 
3550 

3510 B2=B2-1 

3520 IF B2=U2 THEN 3540 ELSE 
3550 

3530 B2=B2 

3540 IF B1=U1 THEN 1290 ELSE 
3550 

3550 IF C$="C" THEN 3670 
3560 IF C3< U1 THEN 3590 
3570 IF C3 >U1 THEN 3610 
3580 IF C3=U1 THEN 3630 
3590 C3=C3+1 
3600 GOTO 3640 
3610 C3=C3-1 
3620 GOTO 3640 
3630 C3=C3 


3640 IF C4< U2 THEN 3670 
3650 IF C4 >U2 THEN 3690 
3660 IF C4=U2 THEN 3710 * 
3670 C4=C4+1 

^5680 IF C4=U2 THEN 3720 ELSE 
3730 

3690 C4=C4-1 

3700 IF C4=U2 THEN 3720 I 
3730 

3710 C4=C4 

3720 IF C3=U1 THEN 1400 I 
3730 

3730 IF F*="F" THEN 3910 


C4=C4-1 

IF C4=U2 THEN 3720 ELSE 

C4=C4 

IF C3=U1 THEN 1400 ELSE 


3740 

3750 

3760 

3770 


IF F1<Ul THEN 3770 
IF F1>U1 THEN 3790 
IF F1=U1 THEN 3810 
F1=F1+1 


3780 GOTO 3820 
3790 F1=F1—1 
3800 GOTO 3820 
3810 F1=F1 

3820 IF F2< U2 THEN 3850 
3830 IF F2 >U2 THEN 3870 
3840 IF F2=U2 THEN 3890 
3850 F2=F2+1 


3860 IF F2=U2 THEN 3900 ELSE 
1590 

3870 F2=F2-1 

3880 IF F2=U2 THEN 3900 ELSE 
1590 

3890 F2=F2 

3900 IF F1=U1 THEN 1490 ELSE 
1590 

3910 IF A$="A" THEN 3920 ELS 
E 1590 

3920 IF B*="B" THEN 3930 ELS 
E 1590 

3930 IF C*="C" THEN 3940 ELS 
E 1590 

3940 IF F$="F" THEN 3950 ELS 
E 1590 

3950 PRINT : : 

3960 PRINT " ALLE SCHIFFE SIN 
D 2ERST0ERT!" 

3970 CALL SAY <”NEXT PLAY”) 
3980 IF RUNDE=1 THEN 4020 
3990 IF RUNDE=2 THEN 4070 
4000 IF RUNDE=3 THEN 4120 
4010 IF RUNDE=4 THEN 4170 
4020 PRINT : : 

4030 PRINT "RUNDE 2-MATROSE! 

n 

4040 FÜR X=1 TO 1000 
4050 NEXT X 
4060 GOTO 780 
4070 PRINT : : 

4080 PRINT "RUNDE 3tOFFIZIER 

4090 FOR X= 1 TO 1000 
4100 NEXT X 
4110 GOTO 780 
4120 PRINT : : 

4130 PRINT -RUNDE 4-KAPITAEN 

i •» 

4140 FOR X=1 TO 1000 
4150 NEXT X 
4160 GOTO 780 
4170 PRINT : : 

4180 PRINT “BRAVO!SIE HABEN 
ALLE RUNDEN ERFOLGREICH BEST 

ANDEN,.KAPITAEN MIT DEM 

ORDEN Ml“ \ 

4190 STOP 

4200 REM 

4210 REM 

4220 REM 

4230 CALL CLEAR 

4240 PRINT "BEFEHLE:" 

4250 PRINT "========" 

4260 PRINT * 1)OSTWAERTS. . . . ( 


>).2) WESTWAERTS ( 

< ).3) SUEDWAERTS. . . ( 


34 V)" 








4270 PRINT "4)NORDWAERTS...< 

.5) AUFGEBEN. 

... 6)PERISKOP AUSFA 

HREN " 

4280 PRINT "7)TORPEDO FUER.. 

..8)BEFEHLSTABELLE 

....9)UEBERSICHT" 

4290 PRINT " 10)HYPERSPRUNG" 
4300 PRINT *. : : 

4310 INPUT “FERTIG ? " : V$ 

4320 GOTO 1590 

4330 CALL CLEAR 

4340 PRINT "U E B E R S I C 

H T..NR .";UEBER 

4350 print : : : 

4360 PRINT "BEACHTE:. 

.A = KREUTZER SEA-W 

ULF.B = KREUTZER SIR W 

ASHINGTON" 

4370 PRINT "C=KREUTZER FIRE- 

BIRD.D = FLUGZEUGTRAEGE 

R SHAPPLANE U=IHR U-BOOT" 
4380 print : : : 

4390 INPUT "FERTIG ? " : V* 
4400 CALL CLEAR 

4410 IF A$="A" THEN 4430 ELS 
E 4420 

4420 CALL HCHAR(Al,A2,65,1) 
4430 IF B$="B" THEN 4450 ELS 
E 4440 

4440 CALL HCHAR(Bl,B2,66,1) 
4450 IF C*="C" THEN 4470 ELS 
E 4460 

4460 CALL HCHAR<C3,C4,67 , 1) 
4470 IF F$="F" THEN 4490 ELS 
E 4430 

4480 CALL HCHAR<F1,F2,68,1) 
4490 CALL HCHAR(U1,U2,85,1> 
4500 CALL KEY(O,KEY,STATUS) 
4510 IF ST ATUS=0 THEN 4500 
4520 IF KEY >0 THEN 3140 
4530 GOTO 3140 

4540 IF Q=1 THEN 3140 ELSE 4 
550 

4550 Q= 1 

4560 RANDOWIZE 

4570 U1=INT<25*RND) 

4580 IF U1=0 THEN 4570 
4590 U2=INT<33*RND) 

4600 IF U2=0 THEN 4590 
4610 CALL CLEAR 
4620 GOTO 3140 

* 



lOO 

! ********************** 

110 

! * 

HUBERT 

* 

120 

! * 

COPYRIGHT 1984 BY 

* 

130 

! * 

JOERG RUEBSAMEN 

* 

140 

! * 

BEARBEITET VOM 

* 

150 

! * 

TEAM DES 

* 

160 

! * 

AKTUELL VERLAGES 

* 

170 

! * 

MUENCHEN 

* 

180 

! * 

BENOETIGTE GERAETE 

* 

190 

! * 

TI 99/4 A KONSOLE 

* 

200 

! * 

TI EXTENDET BASIC 

* 

210 

! * 

DISK ODER KASSETTE 

* 

220 

! * 


* 

230 

! * 

SPEICHERBELEGUNG 

* 

240 

! * 

8914 BYTES 

* 

250 

! * 


* 

260 

! ********************** 

270 

DIM 

PYR < 3, 14) 


280 

DATA 1,7,2,6,2,8,3,5,3, 

7 

,3,9 

,4,4 

,4,6,4,8,4,10,5,ö,5 

, 

5,5, 

7,5, 

9,5,11,6,2,6,4,6,6, 

6 


290 DATA 3,6,10,6,12,7,1,7,3 
,7,5,7,7,7,9,7,11,7,13 
300 GOTO 330 :: BONUS,LH,LR, 
RH, DZ3, MLR,L,R,PUNKT,CT,A,B, 
SW, I, J,C,C1,-C2,S1,S2,F*, A*,A 
1$, B*, Bl*, O, KK, K, KKK, G, Kl , K2 
, K3,K4,PI,P2,FE,DZ1,DZ2,SX,S 
,SY,Z,ZI,SP,SP1=S 
310 CALL COLOR :: CALL CLEAR 
:: call hchar :: call char 
:: call vchar :: call gchar 
:: call sound :: call locate 
:: call sprite :: call moti 
on :: CALL SCREEN 
320 'CALL DELSPRITE :: CALL K 
EY :: CALL COINC 
330 CALL MAGNIFY(3) 

340 L=400 • 

350 ! %P- 

360 QT=2 A (1/12)!HALBTONOPERA 
TOR 

370 RANDOMIZE 
380 CALL CLEAR 

390 CALL COLOR(3, 16,5,4, 16,5 
) 

400 CALL CHAR<40,"01070F0A0A 
FFFFOF070301010707000080EOFO 
787CFCFCFCF3F02020E0E")! HU*B 
ERT 

410 CALL SPRITE(#12,40, 12,25 
6,256,-3,-3) 

420 CALL CHAR<36,"000001071F 
7FFFFFFFFF7F1F07010000000080 
EOF8FEFFFFFFFFFEF8E08“)!TELL 


35 ER 














430 CALL CHAR(44,"030FOC3023 
6668383F1F18180C0F03G0F0FC0C 
G0FC06060CFCF000061EF1E") ! SL 
ICK 

440 CALL CHAR(120,"000000000 
1070F1C1117130F0703000000000 
00080E0F0F8FSF8F0F0E0C")!KUG 
EL 

450 CALL SCREEN (5) 

460 A,B= 1 3 

470 SW=.3 !ANFANGSSCHWIERIGK 
EITSGRAD 

480 FOR 1=3 TO 16 STEF 2 : : 

FOR J=A TO B STEP 2 

490 READ S1,S2 :: PYR(S1,S2) 

= 1 : : PYR(S1,S2+1)= J 

500 NEXT J :: CALL SOUND(-28 

oo,l io*ct~( i- 2 ),5):: a=a-i : 

: B=B+ i :: next i 

510 F$=RPT$( "F" , 16 ) 

520 CALL CHAR(39,FS) : : CALL 
CHAR(98,FS):: CALL CHAR<99,” 

" ) 

530 A=19 :: B=7 
540 CALL CLEAR :: CALL VCHAR 
(1,1,89,312):: CALL VCHAR(1, 
14,93,456) 

550 CALL COLOR(2, 12,5,5, 16,5 

,6,16,5,7,16,5,8,2,5,9,14,5, 

10,2,16,11,16,14) 

560 AS= " FEFCF8F0E0C0S0*' 

570 A1S="0080C0E0F0F8FCFE" 
580 BS="7F3F1F0F070301" 

590 B 1S= " 000103070F1F3F7F : ' 
600 CALL CHAR ( 104, AS) : CALL 
CHAR(113,AIS):: CALL CHAR(1 
12,BS):: CALL CHAR(105,BIS) 
610 CALL CHAR(91,AS):: CALL 
CHAR(97,AIS):: CALL CHAR(96, 
BS):: CALL CHAR(92,BIS) 

620 CALL HCHAR(18,1,99,224): 

: CALL HCHAR(1,1,99,64):: CA 
LL HCHAR(17,1,99,6):: 0=0 :: 

CALL HCHAR(17,21,99,12) 

630 FOR 1=2 TO 30 STEF 2 : : 

IF'1=12 THEN 1=1+6 

640 CALL HCHAR(21,1,40) : : CA 

LL HCHAR(21,1+1,42):: CALL H 

CHAR(22,I,41):: CALL HCHAR(2 

2,1+1,43) 

650 NEXT I 

660 FOR 1=20 TO 8 STEP -2 : : 

CALL HCHAR (17, 1,91): CALL 
HCHAR(17,1-1,96):: NEXT I 
670 DISPLAY AT(20,1)SIZE(-32 
):"RUEBIOLA LTD PRAESENTIERT 
" :: DISPLAY AT(21,IO)SIZE(7 

):"HUBERT" 


680 KK,KKK=0 :: CALL DELSPRI 
TE<#3,#4) 

690 Sl=7 :: S2=l .'KOORD.SLICK 
700 FOR 1=15 TO 3 STEP -2 
710 CALL SOUND(-lOOO,220*CT^ 
1,5) 

720 FOR J=A TO B STEP -2 
730 CALL HCHAR(I,J,91):: CAL 
L HCHAR(I,J+1,96):: CALL HCH 
AR(I + 1,J,97) : : CALL HCHAR <I + 

1,J+l,92) 

740 next J :: a=a- l :: b=b+i 
:: IF 1=11 THEN CALL MOTION 
(#12,-6,-3) 

750 NEXT I 

760 ON ERROR 1340 

770 Kl,K3=1 :: K2,K4=7 :: 0= 

O 

780 DISPLAY AT(24,27)SIZE(-3 
) : 5-FE 

790 DISPLAY AT(24,1)SIZE(-2) 

:INT((SW-.25)*20) 

800 DISPLAY AT(24,10)SIZE(-9 
) : PUNKT 

810 DZ1,DZ2,DZ3=0 !DISKZAEHL 
ER 

820 CALL COLOR(#12,1):: CALL 
DELSPRITE(#12) 

830 CALL SPRITE(#1,42,12,16, 
96) 

840 CALL SPRITE(#6,36,16,88, 
158)!TELLER 

850 CALL SPRITE(#5,36,16,83, 
34) '.TELLER 2 

860 IF SW >.5 THEN CALL SPRIT 
E(#7,36,16,2,96)!TELLER 3 
870 CALL SPRITE(#2,44,2,PYR( 
Sl,S2)*8-10,PYR(S1,S2+1)*8-6) 
880 Pl=l :: P2=7 
890 Z,ZI=3 :: SP,SP1=13 
900 IF LH< >0 THEN 1060 
910 AS="INFORMATION. ___ 

.. :: gosub 1720 

920 IF LR=78 THEN 1030 
930 AS="AENDERN SIE DIE FÄRB 
E DER FELDER OHNE DABEI AUF 
EINS DER ANDERER GESCHOEPFE 
ZU TREFFEN. ... RETTEN SIE HUB 
ERT BEI GEFAHR DURCH EINEN" 

940 AS=AS&” SPRUNG AUF EINEN 

DER TELLER.” :: G 

OSUB 1720 

950 AS="AUSNAHME....SPRINGT 
HUBERT BEIM AENDERN DER FÄRB' 

E DES LETZTEN FELDES AUF EIN 
S DER ANDEREN GESCHOEPFE GIB 

T ES BONUSPUNKTE.. : 

36 : GOSUB 1720 





960 WOLLEN SIE DIE BEDIE 

NÜNGSTASTEN SELBER DEFINIERE 

N 7 . 11 :: GOSUB 1720 

970 IF LR=32 THEN 1030 ELSE 
IF LR< >74 THEN 1020 ELSE A^= 

'■TASTE FUER LINKSOBEN :. 

. '■ : : GOSUB 1720 

980 LH=LR :: A*="TASTE FUER 

RECHTSOBEN :.. M :: GOSUB 

1720 

990 RH=LR :: AS="TASTE FUER 

linksunten :." : : gosub 

1720 

1 ooo A*="TASTE FUER “RECHTSUN 

TEN :." *• : GOSUB 1720 

1010 GOSUB 1820 :: GOTO 1060 
1020 A*="TASTENBELEGUNG: LIN 

KSOBEN :....A .LINKSU 

NTEN • .>.RECHTSOB 

EN ; ...RECHTSUNT 

EN :.z." : : gosu 

B 1720 

1030 LH=65 :: LR = 90 RH=59 

1040 !SPIELFELD FERTIG 

1050 GOSUB 1820 
1060 CALL HCHAR(2,SP, 104) : : 
CALL HCHAR(Z,SP+1, 113) : : CAL 
L HCHAR(Z+1,SP,112):: CALL H 
CHAR(Z+ 1 ,SP+1,105) 

1070 CALL KEY(0,K,S):: IF S= 

O THEN 1070 

1080 CALL COINC(#1,#2,6,0I: 

CALL COINC(#1,#3,6,C1):: CA 
LL COINC(#l,#4,6,C2):: IF C< 

O OR C1< O OR C2< 0 THEN 1660 
1090 CALL KEY<0,K,S):: IF K> 
40 THEN 1110 

1100 CALL KEY(0,K,S):: IF S= 
O THEN 1520 

lllO IF K=LR THEN P1=P1+1 
P2=P2+1 :: GOTO 1150 
1120 IF K=LH THEN Pi=Pl-l :: 

P2=P2-1 :: GOTO 1150 
1130 IF K=RH THEN P1=P1-1 :: 

P2=P2+1 :: GOTO 1150 
1140 Pi=pi+i.:: P2=P2-l 
1150 Z=PYR(P1,P2):: SP=PYR(P 
l f P2+l):: CALL GCHAR(Z,SP,G) 
:: IF G<104 AND RND>R THEN O 
=0+1 ELSE 1170 

1160 CALL HCHAR(Z,SP,104) : : 
CALL HCHAR(Z,SP+1,113):: CAL 
J_ HCHAR (Z+l, SP, 112) : : CALL H 
CHAR(Z+l,SP+1,105) 

1170 ÖALL LOCATE (#1,8*Z- 10,8 
*SP-6):: CALL SOUND(50,-7,5) 

:: IF 0=27 THEN 1260 ELSE 15 


"1180 CALL LOCATE < #1,88,158) 
1190 FOR I=-34 TO -15 STEP 2 
:: CALL MOTION(#1,1,-18) : : 

CALL SOUND(-99,-50*1,O,-6,15 

):: NEXT I 

1200 :: CALL MOTION(#1,o,o): 

*. CALL LOCATE (#1, 16,96) I ? PI 
=1 :: P2=7 
1210 GOTO 1080 
1220 CALL LOCATE (■#■!, 88,34 ) 
1230 FOR I —-34 TO -15 STEP 2 
:: CALL MOTION(#1,I,18):: c 

ALL SOUND(-99,-50*1,O,-6,15) 

:: NEXT i 

1240 :: CALL MOTION(#1,o,O): 

: CALL L0CATE(#1,16,96):: PI 
=1 :: P2=7 

1250 GOTO 1080 

1260 CALL COINC (#1,#2,6,C) : : 

CALL COINC(#1,#3,6,CI) : : CA 
LL COINC(#1,#4,6,C2):: IF (C 
OR CI OR C2)THEN BONUS=BONU 
S+100+100*R ELSE 1280 
1270 DISPLAY AT(17,20):"BONU 
s";bonus':: for j=i to 3 :: 
FOR 1=1000 TO 1200 STEP 40 : 

: CALL SOUND(-100,I,O,1+20,O 

, 1 - 20 , 0 ):: next i :: next j 
1280 a= l9 :: b=7 :: for i=ii 
o TO 880 STEP .11 :: CALL SOU 
ND(-40,1,0,1*2,20):: NEXT I 
1290 CALL DELSPRITE(#3,#2,#4 
):: kk,kkk=o :: Ki,K3,S2=i : 

: K2,K4,S1=7 

1300 PUNKT=PUNKT+INT(10*SW*0 
sw=sw+.05 :: if punkt>l 
THEN R=R+.1 

1310 IF R>.7 THEN R=.7 
1320 IF PUNKT>L THEN L=L+(20 

*sw* 0 ):: goto 700 

1330 GOTO 700 
1340 ON ERROR 1340 
1350 IF SW<.55 THEN 1450 ELS 
E IF P1>0 OR DZ3>0 THEN 1450 
1360 CALL LOCATE(#1,2,96) I : 
CALL DELSPRITE(#7):I DZ3=2 
1370 FOR 1=8 TO 12 :: CALL M 
0TI0N(#1, I,-D 

1380 FOR J=1 TO 220-1*18 :: 
NEXT J :: CALL MOTION(#1,I,I 
):: CALL SOUND(-1000,110*CT A 
(12-1),5) 

1390 FOR J=1 TO 220-1*18 :: 
NEXT J :: NEXT I 

1400 CALL DELSPRITE(#2) : : IF 
. K< >59 THEN 1420 :: si=7 :: 
37 S2=l :: Pl=7 :: P2=l3 


20 











1410 CALL MOTION(#1,4,40):: 

• FOR 1 = 1 TO 40 :i-NEXT I :: G 
OTO 1430 

1420 CALL MOTION <#1,4 , -40 ) : : 

FOR 1=1 TO 65 :: NEXT I 
1430 CALL MOT ION (#1,0,0) : : C. 
ALL SOUND(10,-6,O):: IF K=59 
then ? 44o :: Pi,si =7 :: S2= 

13 :: P2=l 

1440 CALL LOCATE («1,110, PYR ( 

PI,P2+1)*8-6):: CALL SOUND(1 
0,-7,O):: GOTO 1080 
1450 IF P1 < > 5 THEN 1490 ELSE 
IF P2<13 THEN 1470 

14 60 CALL DELSPRITE (#6, #2) 

IF DZ1>0 THEN 1490 :: Sl=7 

:: S2=i3 :: dzi=i :: goto ii 
80 

1470 IF F'2 > 1 THEN 1490 
1480 CALL DELSPRITE (#5, #2) : : 

I r D 2 2 < > O THEN 1490 :: D22 = 

1 :: S 1=7 :: S2=l :: GOTO 1220. 

1490 IF K=RH OR K=LR THEN ML 
R=14 ELSE MLR=-14 
1500 FOR 1=1 TO 50 - 4*P1 STEP 
2 :: CALL MOTION(#1,I,MLR): 

: CALL SOUND(-100,130-1,0,-5 
,30):: NEXT I :: CALL MOTION 
(#1,0,0)I: CALL SOUND(1,110, 

20 ) 

1510 GOTO 1670 
1520 IF RND > SW THEN 1560 
1530 IF PI>S1 THEN S1=S1+I E 
LSE S1=S1-1 

1540 IF P2 >S2 THEN S2=S2+1 E 
LSE S2=S2-1 

1550 CALL LOCATE (#2, PYR (Sl , S 
2)*8-10,PYR(Sl,S2+l)*3-6) 

1560 IF PUNKT < 300 OR 0<9 OR 
RND >SW THEN 1600 ELSE IF KKK 
=2 THEN 1580 

1570 CALL SPRITE(#4,120,10,1 
5,94):: KKK=2 :: GOTO 1600 
1580 K3=K3+1 :: IF K3>7 THEN 
1640 ELSE IF RND>.5 THEN K4 
=K4-1 ELSE K4=K4+1 
1590 CALL LOCATE(#4,PYR(K3,K 
4)*8-9,PYR(K3,K4+1)*3-6) 

1.600 IF 0< 6 OR RND >SW THEN 1 
080 ELSE IF KK=2 THEN 1620 
1610 CALL SPRITE(#3,120,2,16 
,96):: kk=2 :: goto ioso 
1620 K1=K1+1 :: IF Kl>7 THEN 

1650 ELSE IF K2<P2 THEN K2= 
K2+1 ELSE K2=K2-1 
1630 CALL LOCATE(#3,PYR(Kl,K 
2)*8-8,PYR(K1,K2+1)*8-6) : : G 
OTO 1080 


1640 CALL DELSPRITE(#4):: KK 
K=o :: K3=l :: K4=7 :: goto 
1600 !EINFACHER MIT—>CALLKE 

Y (1540) 

1650 CALL DELSPRITE(#3) : : KK 
=0 :: ki=i :: K2=7 :: goto i 
080 

1660 FOR 1 = 1 TO 3 : : FOR J = 1 
10 TO 440 STEP 20 :: CALL SO 
UND(-40,J,O,-5,25):: NEXT J 
:: NEXT I 

1670 FE=FE+1 :: A=19 :: B=7 

:: punkt=punkt+o :: Display 

AT (24, IO)SIZE(4) :PUNKT :: IF 
FE >5 THEN 1690 :: DZ1,DZ2=0 
:: s1=7 :: S2=i 
1680 CALL DELSPRITE(#3,#2,#4 
):: S1,K4,K2=7 :: K1,K3,S2=1 
:: KK,KKK=0 :: GOTO 780 
1690 CALL DELSPRITE(ALL):: P 
UNKT=PUNKT+BONUS :: DISPLAY 
AT(24,10)SIZE(-9):PUNKT :: D 
ISPLAY AT(17,20):"" :: DISPL 

AY A T (23,2) : ".GAME..OUE 

R" 

1700 CALL KEY(0,K,S):: IF S= 

O THEN 1700 ELSE 1710 

1710 BONUS,FE,R,PUNKT=0 :: L 

=400 :: sw=.3 :: Display at< 

23,1):"" :: goto 680 

1720 CALL DELSPRITE(ALL):: C 

ALL MAGNIFY(2) 

1730 MLR=0 

1740 FOR 1=1 TO LEN(AS) 

1750 MLR=MLR+1 :: IF MLR=11 

THEN MLR=1 

1760 CALL SPRITE(#MLR,ASC(SE 
G*(A*,1,1)),16,190,102,-20,0 
) 

1770 FOR J=1 TO 30 :: NEXT J 
: : NEXT i 

1780 FOR 1=1 TO 11 :: CALL D 
ELSPRITE(#1):: NEXT I 
1790 CALL KEY(O,LR,I):: CALL 
SOUND(1,1047,5):: IF 1=0 TH 
EN 1790 

1800 CALL SOUND(100,440,O, 88 
0,0,554,0) 

1810 RETURN 

1820 CALL MAGNIFY(3) 

1830 CALL SPRITE(#1,42, 12, 16 
,96):: CALL SPRITE(#6,36,16, 
88,158):: CALL SPRITE(#5,36, 
16,88,34) 

1840 CALL SPRITE(#2,44,2,PYR 
<S1,S2)*8-10,PYR(Sl,S2+1)*8- 
6) 

38 1850 RETURN 



MAGAZIN 


TIPS & TRICKS 


NEUGRÜNDUNG 
EINES TI-CLUBS 


Seit etwa einem halben 
Jahr gibt es bei uns in 
Münster einen Tl-Club. Er 
besteht zur Zeit aus etwa 
20 Mitgliedern und sucht 
selbstverständlich weite¬ 
ren Zuwachs. 

Der Club entstand aus 
dem Bedürfnis heraus, 
Kontakt zu Gleichgesinn¬ 
ten aufzunehmen, Erfah¬ 
rungen auszutauschen, 
Probleme zu bewältigen 
und den Umgang mit 
dem TI-99/4(A) effektiver 
zu gestalten. 

Außerdem sollen in unse¬ 
rem Club neue Möglich¬ 
keiten der Verwendung 
des Computers in den ver¬ 
schiedensten Bereichen er¬ 
probt und umgesetzt 
werden. 

Wir sind daher an einem 
regen Informationsaus¬ 
tausch mit allen TI-An- 
wendern interessiert. Von 
unserer Seite sind wir be¬ 
reit, diesen Personenkreis 
mit Informationen aus 
dem Club zu versorgen 
und auch sonst nach un¬ 
seren Möglichkeiten. 


Ratschläge zum Umgang 
mit dem TI-99/4(A) zu 
erteilen. 

Wir planen, in regelmäßi¬ 
gen Abständen eine Club¬ 
zeitschrift hera’uszugeben, 
welche alle wichtigen In-' 
formationen über unseren 
Club und wesentliche 
Neuerungen enthalten 
wird. 

Sofern Interesse an einem 
Kontakt zu unserem Club 
bzw. am Bezug unserer 
Clubzeitschrift bestehen 
sollte, bitten wir um 
schriftliche oder telefoni¬ 
sche Kontaktaufnahme. 
Wir möchten ausdrücklich 
darauf hinweisen. daß wir 
keinerlei kommerzielle 
Interessen verfolgen. Alle 
unsere Informationen und 
sonstigen Hilfen werden 
daher zum Selbstkosten¬ 
preis angeboten. 

Die Mitglieder unseres 
Clubs wünschen sich ins¬ 
besondere auch persön¬ 
liche Kontakte zu Mitglie¬ 
dern anderer Clubs. 

TI COM (TI-COMPUTER- 
CLUB) MÜNSTER 
c/o Thomas A. Schneider 
Schillerst raße 6 5 
Tel: 0251/66 30 90 


BERLIN 

Wir sind ein neu im Dezember ’84 gegründeter 
TI-User-Qub in Berlin. Wir treffen uns zur Zeit ein¬ 
mal monatlich am 2. Mittwoch. Momentan sind wie 
18 User und freuen uns über jeden Besuch. 
Anschrift: TI/99/4A USER CLUB BERLIN 
FRANZ NEUDERT 
TEL. (030) 881 74 81 
MEINEKESTRASSE 25 
1000 BERLIN 15 


HsPITZlHSOfTWARC für den TI 99/4A 

' J zum Beispiel 


1177 COMPILER V / .0 Disk 

198- 

~ 7 r\ beschleunigt /Art £XT. BASIC Programme 


\y auf die 2-8 fache Ceschw. 


oder 


ff EX-BAS! C 1/ 8 . 0 . d. 

98 - 

r\ High Resolution Crafikerw. inc. 


1/ Sprites und Schrift 


ff EX BASIC II& PAtRTER Disk 

198- 

- A unerlässlich für Ihre Titel und 


. . 1/ Hintergrundgrafiken 


fytyiitfo bei 


Peter Rull - Softwareentwicklung 


kotbstr. 17/1 . 7000 Stuttgart / ( 07/f ) 60 4873 


DAS ANHÄNGEN VON 
ENDUNGEN AN DEN 
WORTSCHATZ DES 
SPRACHSYNTHESIZERS 


Dieser Abschnitt be¬ 
schreibt, wie die englischen 
Endungen ing, s, und ed an 
jedes der Worte aus dem 
Sprachschatz des Sprach¬ 
synthesizers angehängt 
werden können. 


Der Zeichencode eines 
Wortes wird zuerst mit 
dem Unterprogramm 
(SPGET) gelesen. Der 
Code besteht aus einer An¬ 
zahl von Zeichen, von de¬ 
nen eines dem Sprachsyn¬ 
thesizer die Länge des Wor¬ 
tes mitteilt. Nun können 
mit Hilfe der nachstehend 
aufgeführten Unterpro¬ 
gramme verschiedene 
Codes an die Wörter ange¬ 
fügt werden, um ihnen ei¬ 
ne andere Endung zu 
geben. 

Die Wörter haben oftmals 
zusätzliche Daten, die 
dazu gedacht sind, einen 
wesentlich natürlicheren 
Klang zu erreichen. Dies 
erschwert jedoch das An¬ 
hängen von Endungen. 

Um Endungen anzufügen, 
müssen diese zusätzlichen 
Daten zuerst entfernt wer¬ 
den. Das nachfolgend auf¬ 
geführte Programm erlaubt 
Ihnen, ein Wort einzuge¬ 
ben und unterschiedlich 
viele Schlußdaten zu ent¬ 
fernen, um den Anhang 
als natürlichen Teil des 
Wortes klingen zu lassen. 
Die Unterprogramme 


Defing 
Defs 1 
Defs 2 
Defs 3 
Defed 1 
Defed 2 
Defed 3 
u. Menü 


(Zeilen 1000-1130), 
(Zeilen 2000-2100), 
(Zeilen 3000-3090), 
(Zeilen 4000-4120), 
(Zeilen 5000-5070), 
(Zeilen 6000-6110), 
(Zeilen 7000-7130)) 
(Zeilen10000-10120) 


sollten jeweils getrennt 
eingegeben und mit der 
Merge-Option abgespei¬ 
chert werden. Wenn Sie 


wollen, können Sie auch 


andere Zeilennummern ver¬ 
wenden, jedoch unter¬ 
schiedlich für jedes Unter¬ 
programm. 

Defing definiert die eng¬ 
lische Endung ing. Defs 1 
definiert das s, wie es z.B. 
am Ende von Cats gespro¬ 
chen wird. Defs 2 definiert 
das s, wie es am Ende von 
Cads gesprochen wird. 

Defs 3 ist für eine Endung 
gedacht, wie sie am Ende 
des Wortes wishes gespro¬ 
chen wird. Ähnlich ist es 
mit der Endung ed. Defed 
1 definiert die Endung, 
wie sie am Ende des Wor¬ 
tes passed benötigt wird. 
Defed 2 definiert die En¬ 
dung wie z.B. beim Wort 
caused. 

Beim Programmablauf 
geben Sie eine 0 ein, 
wenn Sie den Programm¬ 
abschnitt mit der Ver¬ 
kürzung der Worte ver¬ 
lassen wollen. 

Die Dataprogrammzeilen 
wurden als kurze Pro¬ 
grammzeilen vorgegeben, 
um die Eingabe zu er¬ 
leichtern. Sie können die¬ 
se jedoch auch verdich¬ 
ten. um das Programm 
zu verkürzen. 

Sie können die Unterpro¬ 
gramme in jedem belie¬ 
bigen Programm benut¬ 
zen, wenn sSie nur die 
Anzahl der Bits, die ab¬ 
zuschneiden sind, festge¬ 
legt haben. Das nachfol¬ 
gende Musterprogramm 
benutzt das Unterpro¬ 
gramm Defing in den Zei¬ 
len 1000-1130, um dem 
Computer das Wort 
drawing aussprechen zu 
lassen, das aus dem Wort 
draw und der Endung ing 
zusammengesetzt ist. 

Zu bemerken ist, daß die 
natürlichste Aussprache 
von draw mit der Endung 
dann gegeben ist, wenn 
41 Schlußzeichen ent¬ 
fernt werden. 

Das Unterprogramm Def¬ 
ing in den Zeilen 1000- 
1 1 30 entspricht genau 
diesem Programm, das wir 
vorher mit der Merge- 
Option bereits abgespei¬ 
chert haben. 

Dieses Programm wird mit¬ 
tels Break angehalten. 
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lio REM REQUIRES MERGE OF: 
120 REM MENU (LINESIOOOO THR 
OUGH 10120) 

130 REM DEFING (LINES lOOO T 
HROUGH 1130) 

140 REM' DEFS1 (LINES 2000 TH 
ROUGH 2100) 

130 REM DEFS2 (LINES 3000 TH 
ROUGH 3090) x 

160 REM DEFS3 (LINES 4000 TH 
ROUGH 4120) ■ , 

170 REM DEFED1 (LINES 5000 T 
HROUGH 5070) 

180 REM DEFED2 (LINES 6000 T 
HROUGH 6110) 

190 REM DEFED3 (LINES 7000 T 
HROUGH 7130) 

200 REM **^H(-*************** 
210 CALL CLEAR 

220 PRINT "THIS PROGRAM IS U 
SED TO" 

230 PRINT "FIND THE PROPER T 
RUNCATION" 

240 PRINT "VALUE FOR ADDING 
SUFFIXES" 

250 PRINT "TO SPEECH WORDS.“ 

■ • 

• • 

260 FOR DELAY=1 TO 300 : : NE 
XT DELAY 

270 PRINT "CHOOSE WHICH SUFF 
IX YOU" 

280 PRINT "WISH TO ADD.": : 
290 FOR DELAY=1 TO 200 M NE 
XT DELAY 

300 CALL MENU(8,CHOICE) 

310 DATA ’ING’j’S’ AS IN CAT 
S,’S’ AS IN CADS,'S* AS-IN W 
ISHES, ’ED * AS IN PASSED,’ED’ 
AS IN CAUSED,* ED* AS IN HEA 
TED,END 

320 IF CH0ISE=0 OR CHOICE=8 
THEN STOP 

330 INPUT "WHAT IS THE WORD? 

":word* 

340 ON CHOISE GOTO 350,370,3 

90,410,430,450,470 

350 CALL DEFING (DSU 

360 GOTO 480 

370 CALL DEFS1(DSD !CATS 

380 GOTO 480 

390 CALL DEFS2(D$>!CADS 

400 GOTO 480 

410 CALL DEFS3(D*>!WISHES 
420 GOTO 480 


430 CALL DEFED1(D*)!PASSED 
440 GOTO 480 

450 CALL DEFED2(DSU «CAUSED 
460 GOTO 480 

470 CALL DEFED3(D*)!HEATED 
480 REM TRY VALUES 
490 CALL CLEAR 
500 INPUT "TRUNCATE HOW MANY 
BYTES? ":L 
510 IF L=0 THEN 300 
520 CALL SPGET(WORD*,B*) 

530 L = LEN (BUU-L-3 

540 C$=SEG*(B$,1,2)&CHR*(L>& 

SEG*(B*,4,L) 

550 CALL SAY ( , CSi&D*) 

560 GOTO 500 
570 END 

lOOO SUB DEFING(A$) 

1010 DATA 96,0,52,174,30,65 
1020 DATA 21,186,90,247,122, 
214 

1030 DATA 179,95,77,13,202,5 
O 

1040 DATA 153,120,117,57,40, 
248 

1050 DATA 133,173,209,25,39, 
85 

1060 DATA 225,54,75,167,29,7 
7 

1070 DATA 105,91,44,157,118, 
180 

1080 DATA 169,97,161,117,218 
,25 

1090 DATA 119,184,227,222,24 
9,233,1 

1lOO RESTORE 1010‘ 

111O A*="" 

1120 FOR 1 = 1 TO 55 :: READ A 

'A$sA$kCHR$<.£) : : next i 

1130 SUBEND 

2000 SUB DEFS1(A*)!CATS 
2010 DATA 96,0,-26 
2020 DATA 14,56,130,204,0 
2030 DATA 223,177,26,224,103 
-2040 DATA 85,3,25i2 , 1Q6, 106 
2050 DATA 128,95,44,4,240 
2060 DATA 35,11,2,126,16,121 
2070 RESTORE 2010 
2080 A3s= K " 

2090 FOR 1 = 1 TO 29 :: READ A 

:: A3>=ASi&<CHR$i( A) : : next i 
2100 SUBEND 

3000 SUB DEFS2(A$)!CADS 

3010 DATA 96,0,17 

3020 DATA 161,253,158,217 
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3030 

DATA 

168,213,198,86,0 

3040 

DATA 

223, 153,75, 128, O 

3050 

DATA 

95,139,62 

3060 

RESTORE 3010 

30 70 

AS=" 

H 

3080 

FOR 

1=1 TO 20 :: READ A 

:: as=as8<chrs(A) : : next i 

3090 

SUBEND 

4000 

SUB 

DEFS3(AS)!WISHES 

4010 

DATA 

96,0,34 

4020 

DATA 

173,233,33,84, 12 

4030 

DATA 

242,205,166,55,173 

4040 

DATA 

93,222,68,197,188 

4050 

DATA 

134,238,123,102 

4060 

DATA 

163,86,27,59,1,124 

4070 

DATA 

103,46,1,2,124,45 

4080 

DATA 

138,129,7 

4090 

RESTORE 4010 

4100 

AS = " 

" 

4 110 

FOR 

1=1 TO 37 :: READ A 


:: as=as&chrs (A) : : NEXT i 
4120 SUBEND 

5000 SUB DEFED1(AS)!PASSED 


5010 

DATA 

96,0,10 

5020 

DATA 

0,224,123,37 

5030 

DATA 

204,37,240,0,0,0 

5040 

RESTORE 5010 

5050 

AS=" 

II 

5060 

FOR 

1=1 TO 13 :: READ A 

:: as=as&chrs(a):: next i 

5070 

SUBEND 

6000 

SUB 

DEFED2(AS)!CAUSED 

6010 

DATA 

96,0,26 

6020 

DATA 

172,163,214,59,35 

6030 

DATA 

109,170,174,68,21 

6040 

DATA 

22,201,220,250,24 

6050 

DATA 

69,148,162,166,234 

6060 

DATA 

75,84,97,145,204 

6070 

DATA 

15 

6080 

RESTORE 6010 

6090 

AS=" 

M 

6100 

FOR 

1=1 TO 29 :: READ A 


:: AS=AS6cCHRS<A) : : next i 


6110 

SUBEND 

7000 

SUB DEFED3(AS)!HEATED 

7010 

DATA 

96,0,36 

7020 

DATA 

173,233,33,84, 12 

7030 

DATA 

242,205,166,183 

7040 

DATA 

172,163,214,59,35 

7050 

DATA 

109,170,174,68,21 

7060 

DATA 

22,201,92,250,24 

7070 

DATA 

69,148,162,38,235 

7080 

DATA 

75,84,97,145,204 

7090 

DATA 

178,127 

7100 

RESTORE 7010 

7110 

AS=" 

- 


7120 FOR -1 = 1 TO 39 :: READ A 

:: AS=AS8cCHRS(A) :: next i 

7130 SUBEND 

lOOOO SUB MENU(COUNT,CHOICE) 
10010 CALL CLEAR 
10020 IF COUNT >22 THEN PRINT 
“TOO MANY ITEMS" :: CHOISE= 

o :: subexit 

10030 RESTORE 

10040 FOR 1=1 TO COUNT 

10050 READ TEMPS 

10060 TEMPS=SEGS(TEMPS,1,25) 

10070 DISPLAY AT(I, 1) : Ij TEMP 

S 

10080 NEXT I 

10090 DISPLAY AT<I+1,1): M YGU 
R CHOICE! 1 M 

10100 ACCEPT AT<1+1,14)BEEP 
VALIDATE(DIGIT)SI2E(-2):CHOI 
CE 

10110 IF CHOICE<1 OR CHOICE> 
COUNT THEN 10100 

10120 SUBEND _ 

lOO CALL DEFING(INGS) 
llO CALL SPGET<"DRAW",DRAWS) 
120 L=LEN(DRAWS)-3-41 ! 3 BY 

TES OF SPEECH OVERHEAD, 41 B 

YTES TRUNCATED 

130 DRAWS=SEGS(DRAWS,1,2)&CH 
RS ( L ) 6cSE6$ ( DRAWS , 4 , L ) 

140 CALL SAY <"WE ARE",DRAWS6* 
INGS,"Al SCREEN") 

150 GOTO 140 


1 ooo 

sub : 

DEFING(AS) 

1010 

DATA 

96,0,52,174,30,65 

1020 

DATA 

21,186,90,247,122, 

214 

1030 

DATA 

179,95,77,13,202,5 

O 

1040 

DATA 

153,120,117,57,40, 

248 

1050 

DATA 

133,173,209,25,39, 

85 

1060 

DATA 

255,54,75,167,29,7 

7 

1070 

DATA 

105,91,44,157,118, 

180 

- 


1080 

DATA 

169,97,161,117,218 

,25 

1090 

DATA 

119, 184,227,222,24 

9,233 

, 1 


1 1 OO 

RESTORE 1010 

1 1 IO 

AS= " 

•• 

1120 

FOR 

1=1 TO 55 :: READ A 


: : as=as&chrs (A > : : next i 
1130 SUBEND 
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HO REM* •- * * 

120 REM* SURVIVORS -* 

130 REM* Copyright by * 

140 REM* Peter Conrad *- 

150 REM* * 

160 REM* Bearbeitet vom * 

170 REM* Team des * 

180 REM* Aktuell Verlages * 
190 REM* Muenchen * 

200 REM* * 

210 REM*Benoetigte Geraete* 
220 REM* TI99/4A Konsole * 
230 REM* - * 

270 REM* Speicherbelegung * 
280 REM* 7008 Bytes * 


290 REM******************** 
295 REM 

300 DIM A(11,11) ,B<11, 1 1 ) 

310 CALL CLEAR 
320 CALL SCREEN(16) 

330 CALL COLOR(9,9, 1 ) 

340 CALL COLOR(IO,8, 1 ) 

350 CALL CHAR(96,"0718204C4C 
80803") 

360 CALL CHAR(97,"E013043232 
OlOlOl“) 

370 CALL CHAR(98,"8090904847 
201807") 

380 CALL CHAR(99,“01090912E2 
0413E") 

390 CALL CHAR(lOO,"0404041C" 
) 

400 CALL CHAR(101,"20202038" 
) 

410 CALL CHAR(104,"0718204C4 
C80808") 

420 CALL CHAR(153,"808080808 
080808") 

430 CALL CHAR <105,"EO1804323 
2010101 ") 1 

440 CALL CHAR (.152, "OIOIOIOIO 
1010101 ") 

450 CALL CHAR(106,"809090484 
7201307") 

460 CALL CHAR<151,"FF") 

470 CALL CHAR <107, "01090912E 
20418E") . 

480 CALL CHAR(108,"0404041C" 

> 

490 CALL CHAR(150,"OOOOOOOOO 
OOOOOFF") 

500 CALL CHAR(109,"20202038" 
) 

510 CALL CHAR(64,"3C4299A1A1 
99423C") 


520 PRINT . , *a 

• .hi...bc . 

• • j k.de. 

..im"::::::: 

530 PRINT "SURVIVORS. 

.. § 11/1984 BY. 

..PETER CONRAD": :" 

TASTE DRUECKEN" 

540 GOSUB 2230 ' 

550 CALL KEY(O,K,S) 

560 IF S=0 THEN 550 
570 CALL CLEAR 

580 PRINT "ANLEITUNG(J/N): 


590 CALL KEY(O,K,S) 

600 IF (K< >74)*(K< >78)THEN 5 
90 

610 IF (K=74)+(K=106)THEN 23 
OO 

620 CALL SCREEN(16) 

630 CALL CLEAR 

640 CALL HCHAR(2,7, 150,20) 

650 CALL HCHAR(23,7, 151,20) 

660 CALL VCHAR(3,6,152,20) 

670 CALL VCHAR(3,27,153,20) 

680 FOR 1=1 TO 10 

690 FOR J=1 TO 10 

700 CALL HCHAR(3 + 2*( J - 1 ) , 5, J 

*64) 

710 A(I,J)=0 

720 CALL HCHAR(1,7 + 2*(I-1 ) , I 
+ 47) 

730 A (I , J ) =-( ( I >1 ) + (I< 10) + (J 
=2)=-3) 

740 A(I,J)=A(I,J)-2*((I>l)+( 
I<10) + <J=9)=-3) 

750 NEXT 3 
760 NEXT I 
770 FOR 1=1 TO 10 
780 FOR 3=1 TO 10 
790 IF A (I, J ) < >1 THEN 850 
800 CALL HCHAR<1+2*J,5+2*1,9 
6 ) 

810 J1 = J1 + 1 ‘ 

820 CALL HCHAR(1+2*J,6+2*1,9 

7) \ 

830 CALL HCHAF^jt 2 + 2*J , 5+2*1,9 

8 ) ’ * 

840 CALL HCHAR(2+2*J,6+2*1,9 
9) 

850 IF A ( I , J ) < >2 THEN 910 
860 J 2=J 2+1 

870 CALL HCHAR(1+2*J,5+2*1,1 
04) 

880 CALL HCHAR (1+2*J, 6 + 2*1,.1 
05) . 
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890 CALL HCHAR(2+2*J,5+2*1,1 
06) 

900 CALL HCHAR(2 + 2*J,6 + 2*1, 1 
07) 

910 IF A(I,J)< >0 THEN 940 
920 CALL HCHAR<1+2*J,5+2*1,3 
2,2) 

930 CALL HCHAR<2+2*J,5+2*1,3 
2,2) 

940 NEXT J 
950 NEXT I 

960 IF J1=0 THEN 2080 
970 IF J 2=0 THEN 2140 
980 J1=0 
990 J 2=0 

1000 FOR SP=1 TO 3 

1010 AS="SPIELER 1 IST DRAN" 

1020 GOSUB 2200 

1030 CALL KEY (O ,K, S) 

1040 IF K= 13 THEN 1370 

1050 IF <K<48) + <K>57) THEN IO 

30 

1060 CALL HCHAR(12,3,K) 

1070 CALL KEY < O,T,S) 

1080 IF (T< 65) + (T >74)THEN IO 
70 

1090 CALL HCHAR(12,4,T) 
llOO IF A < K-47,T-64)=1 THEN 
1150 

IliO A*="DAS GEHT NICHT!..." 

1120 GOSUB 2200 

1130 CALL HCHAR(12,3,32,2) 

1140 GOTO 1030 

1150 A (K-47,T-64)=0 

1160 CALL HCHAR<3 + 2*<T-65) ,7 

+2*<K-48),32,2) 

1170 CALL HCHAR(4 + 2*(T-65) ,7 
+2*(K—48),32,2) 

1180 A$="WOHIN?. 

1190 GOSUB 2200 

1200 CALL HCHAR(12,3,32,2) 

1210 CALL KEY(O,K,S) 

1220 IF < K< 48) + ( K >57)THEN 12 
10 - 

1230 CALL HCHAR(12,3,K) 

1240 CALL KEY(O,T,S) 

1250 IF <T< 65) + (T>74)THEN 12 
40 

1260 CALL HCHAR(12,4,T) 

1270 IF A(K-47,T-64)=0 THEN 
1320 

1280 A$="DAS GEHT NICHT!..." 

1290 GOSUB 2200 

1300 CALL HCHAR(12,3,32,2) • 

1310 GOTO 1210 

1320 A(K—47,T—64)=1 


1330 CALL HCHAR(3+2*(T—65),7 
+2*(K-48),96) 

1340 CALL HCHAR(3+2*(T-65),8 
+2*(K-48),97) 

1350 CALL HCHAR(4+2*(T-65),7 
+2*(K-48),98) 

1360 CALL HCHAR(4+2*(T-65),8 
+2*(K-48),99) 

1370 CALL HCHAR(12,3,32,2) 
1380 A*="SPIELER 2 IST DRAN" 
1390 GOSUB 2200 
1400 CALL KEY(O,K,S) 

1410 IF K=13 THEN 1750 

1420 IF (K<43) + (K >57)THEN 14 

OO 

1430 CALL HCHAR(12,3,K) 

1440 CALL KEY < O,T,S) 

1450 IF (T<65>+<T>74)THEN 14 
40 

1460 CALL HCHAR(12,4,T) 

1470 IF A(K-47,T-64)=2 THEN 
1520 

1480 A*="DAS GEHT NICHT!..." 

1490 GOSUB 2200 

1500 CALL HCHAR(12,3,32,2) 

1510 GOTO 1400 

1520 A(K-47,T-64)=0 

1530 CALL HCHAR(3 + 2*(T-65) , 7 

+2*(K-48),32,2) 

1540 CALL HCHAR(4 + 2*(T-65) ,7 
+2*(K-48),32,2) 

1550 A*="WOHIN?." 

1560 GOSUB 2200 

1570 CALL HCHAR(12,3,32,2) 

1580 CALL KEY(O,K,S) 

1590 IF (K< 48) + (K >57)THEN 15 
80 

1600 CALL HCHAR(12,3,K) 

1610 CALL KEY(O,T,S) 

1620 IF (T< 65) + (T >74)THEN 16 
IO 

1630 CALL HCHAR(12,4,T) 

1640 IF A(K-47,T-64)=0 THEN 
1690 

1650 A*="DAS GEHT NICHT!..." 

1660 GOSUB 2200 

1670 CALL HCHAR(12,3,32,2) 

1680 GOTO 1580 

1690 A(K-47,T-64)=2 

1700 CALL HCHAR(3+2*(T-65),7 

+2*(K—48),104) 

1710 CALL HCHAR(3+2*(T-65),8 
+2*(K-48),105) 

1720 CALL HCHAR(4+2*(T—65),7 
+2*(K-48),106) 
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1730 CALL HCHAR<4+2*<T-65>,3 
+2*<K-48),107) 

1740 CALL HCHAR<12,3,32,2) 
1750 NEXT SP 

1760 A*="BITTE WARTEN!.... 
1770 GOSUB 2200 
1780 FOR 1=1 TO 10 
1790 FOR J=1 TO IO 
1800 C=—(A<I—1,J-1)=1)-(A(I— 
1,J)=1)-(A(I—1,J+1)=1)-<A(I, 
J-1)=1)-(A(I,J+1)=1)-(A(I+1, 
J-1)=1)-(A(I+1,J)=1)-(A(I+1, 

J + l> =1) 

1810 D=-(A(I-1,J-1)=2)-(A<I- 
1,J)=2)-<A(I-1,J+1)=2)-(A(I, 
J-i)=2)-(Ad,J + l)=2)-<Ad + l, 
J-l)=2)-<Ad + l,J)=2)-(A(I + l, 
J+l)=2) 

1820 IF ( < D=2) + (D=3) )*(A(I,J 
)=2)TUEN 1830 ELSE 1840 
1 830 B ( I , J ) =2 

1840 IF <D=3)*<A<I,J)=0)THEN 
1350 ELSE 1360 
1850 B ( I ,J)=2 
1860 REM 

1870 IF (<C=2)+<C=3))*(A(I,J 
)=1> THEN 1830 ELSE 1890 
1880 B < I , J ) = 1 

1890 IF (C=3)*<A(I,J)=0)THEN 
1900 ELSE 1910 
1900 B < I, J ) = 1 
1910 NEXT J 
1920 NEXT I 
1930 FOR 1 = 1 TO 10 
1940 FOR J=1 TO 10 
1950 A(I,J)=B<I,J) 

1960 B ( I , J ) =0 
1970 NEXT J 
1980 NEXT I 

1990. A*=" . . . ;." 

2000 GOSUB 2200 

2010 GOTO 770 

2020 PRINT "NOCHMAL <J/N)?" 

2030 CALL KEY <0,K,S) 

2040 IF (K< >74)*<K< >78)THEN 
2030 

2050 IF (K=74) + <K=106)THEN 5 
IO 

2060 CALL CLEAR 

2070 END 

2080 CALL CLEAR 

2090 PRINT "SPIELER 1 HAT VE 

RLOREN!" 

2100 J1=1 

2110 IF J2>0 THEN 2020 
2120 PRINT "ABER!"AUCH "; 


2130 GOTO 2150 

2140 CALL CLEAR 

2150 PRINT "SPIELER 2 HAT VE 

RLOREN!" 

2160 J2=l 

2170 IF J1>0 THEN 2020 
2180 PRINT "ABER:"AUCH "J 
2190 GOTO 2090 
2200 FOR F=1 TO LEN<A*) 

2210 CALL HCHAR(24,6 + F,ASC <S 
EGSKAS, F, 1 ) ) ) 

2220 NEXT F 

2230 FOR F = 0 TO 30 STEP 3 
2240 CALL SOUND(-200,262, F ) 
2250 NEXT F 

2260 FOR F=0 TO 30 STEP 3 

2270 CALL SOUND<-200,131,F) 

2280 NEXT F 

2290 RETURN 

2300 CALL CLEAR 

2310 PRINT "**************** 

**** *********.SUR VIV 

ORS.***************** 

************" 

2320 PRINT :"DAS SPIEL WIRD 
ZU ZWEIT GE- SPIELT. JEDER S 

PIELER.STEUERT EINE ZE 

LLENKOLONIE," 

2330 PRINT "DIE IN EINER NAE 
HRLOESUNG...UEBERLEBEN MUSS. 

DER SPIE-..LER, DESSEN KOLO 
NIE ZUERST" 

2340 PRINT "STIRBT, HAT VERL 
OREN. PRO...GENERATION KOENN 
EN VON JEDEMSPIELER 3 ZELLEN 
VERSETZT" 

2350 PRINT "WERDEN. DAS GESC 
HIEHT,INDEM DER BETREFFENDE 
SPIELER ZU- ERST DIE X-KOORD 
INATE <0-9) " 

2360 PRINT "UND DANN DIE Y-K 

OORDINATE- <A-J) DER ZU VER 

SETZENDEN...ZELLE EINGIBT. D 
ANN MUESSEN" 

2370 PRINT "X- UND Y-KOORDIN 
ATE DES. .... ZIELES EINGEGEBE 
N WERDEN." \ 

2380 PRINT "TASTE DRUECKEN!" 
2390 CALL KEY<0,K,S) 

2400 IF S=0 THEN 2390 

2410 CALL CLEAR 

2420 PRINT "WENN SIE KEINE Z 

ELLE VER-...SETZEN WOLLEN,DR 

UECKEN SIE..STATT DER 1. X-K 

OORDINATE" 
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2430 PRINT ">ENTER<. SPIELER 
1 ÜEBER-...NIMMT DIE ROTEN 

ZELLEN,.SPIELER 2 DIE BL 

AUEN." 

2440 PRINT "NEHMEN SIE SICH 
DER KLEINEN GRINSENDEN ZELLE 
N AN UND. ... SORGEN SIE FUER 
EIN LANGES," 

2450 PRINT "UNBESCHWERTES LE 

BEN.* 1 : .VIEL GLUECK 

.TASTE DRUECKEN!" 

2460 CALL KEY(0,K,S) 

2470 IF S=0 THEN 2460 

2480 CALL CLEAR 

2490 PRINT “NOCH EIN TIP:": 

:"DIE ZELLEN UEBERLEBEN,.... 
..STERBEN UND VERMEHREN SICH 
..NACH DEN COMWAY-REGELN. H 
2500 PRINT : :"MEHR WIRD NIC 


HT VERRATEN! 


UND WENN SI 


E SO FREUNDLICH..WAEREN,EINE 
TASTE ZU“ 

2510 PRINT "DRUECKEN, DANN G 

INGE ES.JETZT LOS!“ 

2520 CALL KEY(0,K,S) 

2530 IF S=0 THEN 2520 
2540 CALL CLEAR 
2550 GOTO 620 





Der TI 99/4A 

weiter auf dem Vormarsch 

Das Computer-Hüsli bringt wieder viele Neuheiten. Wer jetzt 
zugreift, macht aus seinem TI 99/4A einen „richtigen“ Computer. 

Achtung! Rigorose Preissenkung bei der DAMAST-Datenbank 

Das DAMAST-Datenmanagement-System ist die einzige wirklich professionelle 
Datenbank für Ihren TI 99/4A. 

Grundausstattung: Kartenverwaltung, Generierungs- und Druckprogramme 

DM 278,— 

EXPERT: Texteditor mit Verknüpfungsprogramm DM 128, — 

Zusatzpaket: Sortieren, Markieren und automatisches Ändern von Datenkarten 

DM 78,— 

Zur Vorablieferung: Bedienungsanleitung DM 25, — 

Demodiskette DM 49, — 

NEU! Betriebssystemerweiterungen einschließlich Druckerschnfttstelle 
Peeken und Poken in allen Speicherbereichen, Ändern des Charaktersatzes am Bild¬ 
schirm und viele andere Funktionen bietet Ihnen die Betriebssystemerweiterung 
TI 99-PP. Sie ist gleichzeitig ein Printer-Port, an das Sie einen Parallel-Drucker direkt 
anschließen können DM 548, — 

Software-Paket „Masterkatalog“' 

4 Programme (auf Diskette!) ermöglichen Ihnen die Katalogisierung Ihrer Disketten 
NEU: Software Modul „Filer“' DM 98 - — 

Besteht aus Adreßdecoder 74LS139 und EPROM 2764 8k x 8 und beinhaltet RAM- 
Sort. DISK-Sort und SUCH-String DM 148,— 

CH-Compiler PLUS auf Diskette!' 

Unsere eigene Entwicklung - endlich ist sie da! Für Ihr Extended Basic Modul. 
Beschleunigt den Ablauf Ihrer Basic-Programme bis zum zehnfachen. Übersetzt alle 
Befehle! Programmgröße auf maximal 12 KB beschränkt. DM 298,— 

Ec-Basic Erweiterung' DM 98,— 

'Achtung: Voraussetzung sind 32K-RAM-Speichererweiterung und Disketten¬ 
station! 

Exklusiv in Deutschland: Speichererweiterung schrittweise!!! 

Durch den 32K RAM für die Peripherie-Box können Sie ihre Speicherkapazität (später) 
vervierfachen. Auf 128K gesockelt, also nachträglich auf 128K RAM aufrüstbar 

DM 448,— 

Software: RAM-Disk und Print-Spooler DM 148,— 

96K RAM Chip-Set DM 448,— 

Als Komplett-Paket (Sie sparen DM 96,—) DM 948,— 

Umrüsten auf 2 Slimline-Laufwerkeü! 

Eine echte Sensation vom Computer-Hüsli: Ersetzen Sie das Laufwerk Ihrer Peri¬ 
pherie-Box (intern) durch 2 Slimline-Laufwerke. 

Disketten-Controller: Für doppelseitige + doppelte Dichte Laufwerke. Mit den nach¬ 
folgend aufgeführten doppelseitigen Slimline-Laufwerken sind je 360 KB möglich. 
Komplett mit Disk Manager II DM 648,— 

Slimline-Disketten-Laufwerk intern: Problemloser Einbau. Halber Stromverbrauch 

DM 698,— 

Einbausätze für ein Slimline-Laufwerk DM 30,— 

für zwei Slimline-Laufwerke DM128,— 

Disketten-Controller Original TI: Für doppelseitige + einfache Dichte Laufwerke 
intern für die Peripherie-Box DM 498,— 

Externe Schnittstelle: 2x V 24 (RS 232), Bus durchgeführt DM 448,— 

Bemstein-Monitore sind in 

Monitor 22 MHZ bernstein DM 438, — 

Monitor 22 MHZ grün DM 398, — 

Anschlußkabel für Monitore schwarz-weiß DM 16,90 

Super-Sonderangebot für Akustikkoppler 

Damit können Sie weltweit - über das Telefonnetz - Informationen aus entsprechen¬ 
den Daten-Zentralen abrufen. 

flataphon s 21 d mit Emulator II Modul DM 378, — 

dto. + Ix V24 Schnittstelle extern, Bus nicht durchgeführt DM 648, — 

mit Umschaltung Answer-Originate, mit FTZ-Nummer DM 298, — 

Anschlußkabel DM 78, — 

Terminal Emulator II Modul (zur Datenübertragung und für weitere Funktionen) 
Weltweit einzigartig DM 98, 

RGB-Modulator: ab Anfang Mai lieferbar DM 148, — 

AD/DA-Wandler mit 8fach Multiplexer: sofort lieferbar DM 198, — 

Preis- und Leistungsknüller 

Tex-Forth: Diskette für das Editor Assembler Modul. Bis zu 50mal (!) schneller als 
TI Basic. Kann 64 Zeichen (!) auf dem Bildschirm darstellen. Mit englischem Handbuch 

Nur vom Computer-Hüsli DM 98, 

Flugsimulation: Beinhaltet zwei Software-Versionen - eine mit und eine ohne 
Extended Basic Modul. 

Kassette DM 59, — 

Diskette DM 69, — 

Sensationell! Das neue Heiner-Martin-Buch jetzt auch beim Computer-Hüsli 

Das Betriebssystem des TI 99/4A intern. Kommentiertes ROM- und GROM-Usting 
mit Hinweisen zu GPL DM 38, — 

Doppelte Disketten-Kapazität zum Mini-Preis 

NEU: DISKY 5,25” 2D two-eye: die Wende-Diskette mit 2x ID DM 6,50 

Noch viel mehr steht in unserer neuen Preisliste. Einfach anfordern. 
Wenn Sie uns anrufen, geht es am schnellsten. 

Das Computer-Hüsli • Münchner Straße 48 
8025 Unterhaching • Telefon (089) 619048 




TIPS & TRICKS 


COHPUTI 
RACK IH 
EI6ENBA 


I Die Situation ist nicht neu: Der Computer 
steht auf dem Boden vor dem Fernseher, 
Vater und Sohn liegen oder hocken davor. 
Dann verschwindet das Gerät wieder in einer 
Schublade. Kabel rein, Kabel raus, und so 
weiter. Hier ein Vorschlag, dem Computer 
seinen eigenen Platz zu gönnen - und noch 
nicht einmal teuer. 


Computer - Rack 


<50 cm> 


<30 cm> 


40,5 cm x 110 cm 
2 Platten 19 mm 
Seitenwände 


50 cm x 40 cm 
4 Platten 16 mm 
Einlegefächer 


<50 cm> 



<50 cm> 


Büd 4 

50 cm x 40 cm roh 
48 cm x 35 cm x 6 cm bes. 
1 Platte 16 mm 
Schubfach mit Softraller 


Büd 5 

Rundungsschnitt 
. für Seitenteü . 

40 cm x 12 cm 
mit Dübellöchem 


0,5 cm 
Fräsen 


<48 cm> 


Ausschneiden 
links und rechts 
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TIPS & TRICKS 


Formvollendet und perfekt wie 
von einem italienischen Designer, so 
erscheint unser Computer-Regal, 
das wir Ihnen hier vorstellen. Das 
Geheimnis des Erfolgserlebnisses 
liegt darin, daß es selbstgebaut wur¬ 
de. Dies Möbelstück ist auch geeig¬ 
net, in einem Wohnzimmer mit 
Profimöbeln ein gutes Bild zu hin¬ 
terlassen. Unter einer großen An¬ 
zahl von Furnierhölzern (z.B. Nuß¬ 


baum/Eiche/Perlweiß usw.) können 
Sie auswählen, um ein Computer- 
Regal nach eigenen Geschmacksvor¬ 
stellungen zu gestalten und dem 
persönlichen Bedarf anzupassen. 
Um dies ausführen zu können, 
muß man, wenn vorhanden, Vaters 
Hobbywerkstatt besetzen. Dort 
sind bestimmt Werkzeuge zur Holz¬ 
bearbeitung vorhanden. Sollten Sie 
nicht in dieser glücklichen Lage 


sein, genügt natürlich auch ein 
sonstiges ruhiges Eckchen. Nun be¬ 
sorgt man sich in einem Hobby-/ 
Baumarkt zwei Spanplatten (Maße 
llOcmH x 40,5mB Bild 1), die 
nach Ihren Angaben geschnitten 
werden. 

Diese beiden Platten dienen als 
Grundelemente und werden an 
einer Kante abgerundet (Bild 5). 
Auf der Rückseite wird eine 110 cm 
lange 0,5 cm breite Nutrille (Bild 1) 
gefräst, die dann die Deckplatte 
(Bild 6) aufnimmt. 

Nun brauchen wir noch vier 
Spanplatten (50cmH x 50cmB x 
1,6cm Bild 2), die als Regalein- 
legefächer dienen. Eine von diesen 
Platten (Bild 4) wird für die aus¬ 
ziehbare Computer-Stellfläche 

benötigt. 

Aus den Seitenflächen (Bild 4) 
wird ein 1 cm breiter, 35 cm langer 
Streifen herausgesägt. In diese so 
vorbereiteten Stellen werden Soft¬ 
roller eingeschraubt. Nun messen 
Sie an den Seitenelementen ihre 
Regalfächer aus, um nachher mit 
einen 6 mm-Bohrer je drei Löcher 
in die Innenseite der tragenden Ele¬ 
mente zu bohren, um die Holz¬ 
dübel einsetzen zu können (Bild 
2/3/5). Ein Regalbrett hat jeweils 
3 bzw. 2 Löcher an jeder Seite, 
durch die das Regaleinlegebrett mit 
den Elementeseitenteilen durch 
Holzdübel verbunden wird. Diese 
2 bzw. 3 Löcher werden in die Stirn¬ 
seite des Regalkrettes gebohrt. Vor¬ 
sicht, nicht durch die, Spanplatte 
bohren, sondern nur so tief, daß der 
Holzdübel jeweils zur Hälfte hin¬ 
einpaßt. Wenn alle Löcher gebohrt 
sind, kleben Sie die Holzdübel mit 
Holzleim in alle entsprechenden 
Bohrungslöcher. Nicht zuviel Leim, 
um ein Herausquellen zu verhindern. 

Sparsam mit dem 
Leim umgehen! _ 

Stecken Sie die Platten einfach 
systematisch zusammen. Das heißt, 
die Regalbretter werden auf die Sei¬ 
tenelemente aufgesteckt. Für die 
Schublade brauchen Sie nur an die 
Seitenelemente eine Laufschiene 
(Softroller) in die Arbeitshöhe an¬ 
zuschrauben, in der Sie Ihren Com- 



» 
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puter haben wollen. Nun steht Ihr 
Computer-Regal im Rohbau. Jetzt 
brauchen Sie nur noch die Rück¬ 
seitenplatte, eine Hartfaserplatte 
(llOcmH x 45cmB x 0,34 cm) Bild 
6), die auf die Rückseite der tragen¬ 
den Elemente paßgenau ange¬ 
schraubt wird. Als Tüpfelchen auf 
dem ,i‘ ist jetzt nur noch auf die 
Stirnseiten der Spanplatten ein Um¬ 
leimer aufzubügeln. Umleimer nennt 
man einen furnierten Streifen, der 
mit einem Bügeleisen auf die Brett¬ 
stimseiten aufgetragen wird. 

Hilfestellung und Informationen 
halten auch gute Hobby-/Baumärk- 
te bereit. 

Jetzt ist Ihr Computer-Rack hof¬ 
fentlich fertig. Sie benötigen kaum 
mehr als einen Schraubenzieher, 
Schleifpapier, Leim, Feile und ca. 
10 Std. Arbeitsleistung, um alles 


fachgerecht montieren zu können. 
Der Materialpreis liegt ungefähr'ab 
100,— DM (abhängig vom verwen¬ 
deten Furnier). Übrigens ,Nußbaum‘ 
heißt die sauber furnierte Spanplat¬ 
te, die-wir für unser Computer-Re¬ 
gal gewählt haben. 


Sonderservice 

für Ungeübte _ 

Für alle Ungeübten gibt es die 
Möglichkeit, einen Bausatz zu be¬ 
stellen. Unser Schreinermeister, der 
uns bei dem Bau geholfen hat, bie¬ 
tet unseren Lesern folgendes an. 

Der Bausatz Modell 2 besteht aus: 
2 Seitenteilen 40,5 cm x 110 cm, 
19 mm gefräßt mit Rundungsschnitt 
/Umleimer 


3 Regalbretter 50 cm x 40 cm, 
16 mm mit Frontumleimer 

1 Regalbrett/Schubfach beschnitten 
mit 1 Paar Softroller 

1 Deckbrett 50 cm x 30 cm, 16 
mm mit Frontumleimer 

1 Rückwand 51 cm x 110 cm, 3 mm 
ohne Kableausschnitte 
22 Holzdübel und 20 Holzschrauben 

Furnierfarben: 

Nußbaum, Eiche, Schleiflack weiß 

Sonderanfertigungen auf Anfrage! 
Lieferung nach Rechnung 
Preis DM 225,- 

(Achtung, kein Geld mitsenden!) 
Bestelladresse: 

TI/CBM Verlag 
Abteilung W 
Postfach 1107 
D-8044 Unterschleißheim 
















Lite selbstverständlich 
auch als intelligentes Bild¬ 
schirmterminal an die an¬ 
deren TI-Büro-Computer 
angeschlossen werden. 
Desweiteren besteht die 
Möglichkeit für den An¬ 
schluß eines tragbaren 
Thermodruckers (45 Zei¬ 
chen pro Sekunde) und 
die Modelle der TI-Matrix- 
Druckerfamilie Omni800. 
Die Eingabetastatur des 
Pro-Lite umfaßt 79 Ta¬ 
sten. davon 1 2 frei pro¬ 
grammierbare Funktions¬ 
tasten und ein numeri¬ 
sches Eingabefeld. Für 
den bundesdeutschen 
Markt soll eine Tastatur 
nach deutscher Norm 
zum Einsatz kommen. 

Der Pro-Lite wird in 
Deutschland voraussicht¬ 
lich ab dem 2. Quartal 
1985 angeboten werden. 


TI IN DER AKTENTASCHE 


Kürzlich hat Texas Instru¬ 
ments einen neuen Per¬ 
sonalcomputer im Akten¬ 
taschenformat vorgestellt. 
Er wiegt 4,8 kg, und ist 
mit einem 1 2 Zoll Flüssig¬ 
kristallbildschirm ausge¬ 
stattet. Das Anzeigefor¬ 
mat von 25 Zeilen zu je 
80 Zeichen entspricht 
dem Bildschirm des pro¬ 
fessionellen Personal¬ 
computers. Der Pro-Lite, 
der bequem in jede 
Aktentasche paßt, ist 
kompatibel mit dem TI- 
Professional und dem TI- 
PortableProfessionalcom- 
puter. TI bietet nunmehr 
3 unterschiedlich ersetz¬ 
bare Computer aus einer 
compatiblen Systemfami¬ 
lie an. Der Pro-Lite erlaubt 
einen ortsunabhängigen 
Einsatz ohne Einschrän¬ 
kung in Bezug auf Funk¬ 
tionalität und Leistungs¬ 
umfang, insbesondere für 
die zahlreichen Anwen¬ 
dungen im Bereich des 
Außendienstes für Güter¬ 
und Dienstleistungen. 

Von der Angebotserstel¬ 
lung bis zur Auftragsab¬ 
wicklung vor Ort erleich¬ 
tert der Pro-Lite den 
schnellen, reibungslosen 
Informationsfluß von 
Außen- und Innendienst. 
Insbesondere bieten sich 
folgende Dienstleistungs¬ 
bereiche an: Finanz- und 
Investitionsmanagement, 
Versicherungsagenturen, 
Makler, Anlagen- und 
Finanzierungsberater. Sie 
alle profitieren von der 
Aktualität, Qualität und 
Flexibilität der Beratungs¬ 
leistungen, die der mobile 
Einsatz des Pro-Lite 
ermöglicht. 

Lauffähig ist auch dieser 
Tl-Computer — wie alle 
Tl-Professionalcomputer- 
unter dem Betriebssystem 
MSDOS. Er ist ausgerü¬ 
stet mit einem Industrie¬ 
standardprozessor vom 
Typ 80C88, einem Ar- -■ 
beitsspeicher von 256KB 
sowie einem 3,5 Zoll 
Diskettenlaufwerk mit ei¬ 
ner Speicherkapazität von 
720 KB. Auch beim Pro- 
Lite sind auf Grund des 


modularen Systemauf¬ 
baues Systemerweiterun¬ 
gen problemlos zu instal¬ 
lieren. Der Speicherausbau 
ist in 256 KBschritten auf 
maximal 768 KB realisier¬ 
bar. 

Der als Option erhältliche 
numerische CO-Prozessor 
8087 unterstützt rechen¬ 
intensive Anwenderpro¬ 


Der neue Prolite von Texas 
Instruments ist sowohl 
eigenständiger Akten¬ 
taschencomputer wie auch 
am Arbeitsplatz einsetzbar 


gramme. Über eine Erwei¬ 
terungsbox können an 
den Pro-Lite ein zweites 
Diskettenlaufwerk und 
ein Akkumulatorenpack 
angeschlossen werden. 
Desweiteren stehen Steck¬ 
plätze für ein RS 232C 
Kommunikationsmodul 
Für synchr./asynchr. 
Datenfernübertragung.so¬ 
wie für den Anschluß an 
einen externen Färb- oder 
Monochrommonitor zur 
Verfügung. Der direkte 
Anschluß an die anderen 
Mitglieder der TI-Profes¬ 
sionalfamilie ist über ein 
spezielles PC-Schnittstel- 
lenkabel möglich, das den 
direkten Datenaustausch 
ermöglicht. Mit Hilfe des 
931 Emulators kann Pro- 


49 



BÖRSE 


Verk. 1) Brother EP 44 m. 
RS 232 + Netzteil + Papier: 
629,) 2) Laufwerk BASF- 
6106, SS, DD. 40 Sp.: 
300,- 3) Prg. Rout. 1-3: 

110,—. Auch einzeln, 

Tel. 0251/664684 


Suche TI Extended Basic, 
Tel. 02173/22599 


TI 99/4A verk. Multi 
Boara, Interface TI 99/4A 
auf Centronics, 170,— 

H. Essig, Maudacherstr. 28, 
6800 Mannheim 81 


TI 99/4A Konsole Peri- 
pheri-Box. Extended Basic 
Modul. Alles mit Manual 
zweifach Rec-Kabel. Alles 
original Texas. DM 1200,- 
S. Odor Wormser Str. 1, 
6780 Pirmasens, Tel. 06331/ 
73664 oder 866476 


Verkaufe für TI 99/4A: 
Basic Kurs Cas. 10 DM, 
Programm Routinen II 
Disk 40 DM. Speach-Edi- 
tor Modul 50 DM, Ex- 
Basic Handbuch (engl.) 
20 DM. David Zenth, 

Tel. 06262/2916 


Surround, Spiel in Maschi¬ 
nensprache für TI 99/4A 
+ Disk + E/A-Modul + 

32 K. Informationen von 
ACL Berlin. Wiesbadener¬ 
straße 15, 1000 Berlin 49 


TI-Disk-Laufwerk Orig, 
zu verkaufen, VP 390,—, 
Lothar Ziegler, Bucher- 
straße 23, 8011 Egehart, 
Tel. 08091/2777 


Achtung TI-Bastler! Verk. 
TI 99-Kxmsole + ExBasic 
400 DM 1 Jahr Peribox + 
32 K StatikRAM + RS 
232 + Epromer-Karte + 
volle Sys. Info 800 DM. 

W. Schillings, Falkweg 54, 
8 München 60, Tel. 089/ 
8342685 


TI 99/4A Programme, In¬ 
fo gegen 2 DM in Brief¬ 
marken von: Andreas 
Schmidt, Am Storchen- 
baum 9, 6793 Bruchmühl¬ 
bach-Miesau 2 


Einer der Letzten! Verk. 

TI 99/4A (1 1 alt) + X- 
Basic+Datarec (6 Mon. alt) 
+ Spielmodul + 2 Joyst. 

+ 7 Handbücher + 12 Da- 
tencass. + Software + viele 
Listings & Tips für nur 
650 DM VB (NP ü. 1000 
DM). Werner Barth, Bau¬ 
berg 13,6921 Ittlingen, 
Tel. 07266/2282 


Verk. Kass.-Rek.-Kabel. 
Telefon 07331/64498 


Verk. TI 99/4A + Handb. 
+ Rec.-Kabel + Progr. 

200 DM. W. Magiera. 

Tel. 07133/6594 


TI 99/4A-Ext.Basic, Ass., 
Tl-Wnter, 48 K. Ext.Box, 
Graphikpack, Disketten! 
laufw., RS 232, Div. Lite¬ 
ratur, Kabel. Statt 4200,- 
nur 2200,— Tel. 0421/ 
646039 


Verk. TI 994/A Ext.Bas. 
Minimemory, MBI, Interf., 
Text + Datenverw. u. Fi- 
nanzb., Record., Jost., 
Literatur, Assemblerbuch 
900,— DM. A Meuten¬ 
hauer. Wetter 4, Telefon: 
02335/70107 


TI 99/4A + X Basic + Re¬ 
corder + Rec-2-Kabel + 
Joystick + Monitorkabel 
+ 4 Bücher + Software, 
VB 650,- DM. Telefon 
089/434271 abends ab 
18.00 Uhr 


Verkaufe TI 99/4A, Dis¬ 
kettenlaufwerk, Intern. 
Tausche Programme RD. 
gleich Tel. 02106/44570 
ab 18,00 Uhr 


porto bei Horst Treisch, 
Reichenhaller Str. 2/3, 
1000 Berlin 33 


Verkaufe TI 99/4A+Ex- 
Basic + Speech-Synth. + 
Spielmodule, DM 800,— 
Tel. 06131/686470 


Verk. TI 99/4A + Ext. 
Basic + Spiele + Cas.-Rec.- 
Kabel 350 DM Modul 70 
DM. Str. Oddy 25 DM Adv 
Aud 25 DM, Tl-Program- 
me 10 DM, TI-Game 
Programs 15 DM. M. Hopf, 
Tel. 089/836159 


Lohn-Einkommenssteuer- 
Jahre>ausgleich, Jährl. ak- 
tual. ohne Neukauf. Ge¬ 
naue Berechn. Analyse. 
Eing. im Dialog. Info g. 
RP Cass. 40 DM. H. Hi¬ 
elten. Niederfeldestr. 44, 
8072 Manching 


Wir verkaufen TI Basic 
Programme keine Kopien 
zu je 5 DM, Info telefo¬ 
nisch 02236/41342 


Achtung, kaufe Program¬ 
me für TI 99/4A. Kasset¬ 
te zu senden an: Bodo 
Baumgart, Lachmannshof 
67, 4690 Herne 1 


Suche für TI 99/4A preis¬ 
wert. Drucker RS 232 
vorh. Verkaufe teilw. mei¬ 
ne Prg. in Exbasic + Asse 
Assembler sowie einige 
Module Mynchm. Attack, 
Soccer usw. Tel. 02041/ 
28321 


TI 99/4A + Ext. Basic + 
Spracn-Synthesizer + 140 
Spiele + Zubehör. VB 
690 DM. Auch einzeln! 

J. Heide, Tel. 02737/ 
97100 


Verk./Tausche Orig. TI- 
Invader + Basic-Rout. I >. 
je 30 DM + NN. Suche 
RS 232 + TI-II, Tel. 
06106/74182 


Polyester Electronic Gieß¬ 
harz! Zum Vergießen 
electronischer Schaltun¬ 
gen gemäß VDE 250 = 

190 ml nur DM 20 + NN 
Geb. Nur Nachnahmesen¬ 
dungen! Ropers, Postfach 
1521, 2250 Husum 


Suche Briefkontakte! Tau- TI 99/4A UCSD Pascal 
sehe Programme für TI- Dateiverwaltung 79 KB 

Konsole (Joys). Hans- 5 Komp.Ext.Bearb.FIX 

Hermann Kiene, Haferweg 250 Records-300Bytes 

4, 4472 Haren, Telefon: DM 100,—/Info bei Horst 

05932/3423 Treisch, Reichenhaller 

--— Str. 2/3, 1000 Berlin 33 

Verk. Dis Assembler, zum -- 

Einbinden in den TI-Debug. TI Professional Vereinsda- 
Diskette für 25 DM + tei 150,- KAP: 200 M 
Porto. Volker Senft, Moos- MTGLDR/Disk 15 Kom- 
straße 11,8300 Ergolding ponenten/FIX, Info Rück- 


TI 99/4A verkaufe TI 
komplett + Anlage (Box, 
Laufwerk, 32 K, alle Mo¬ 
dule. Vierseitige Preisliste 
g. frank. Rückcouvert, 
Ralph Schad, Wasserbett 
6, 6800 Mannheim 51 


Verkaufe: TI 99/4A & 
Cassetten-Rekorderkabel 
& SJoystick-Adapter & 
Software & Othello-Modul 
3c Literatur, VHB 350 DM; 
Schach-Computer Chess 
Champion Super System 
III, VHB 150 DM; Tausche 
& kaufe-H-Commodore 64 
Software. Sascha Heinze, 
Auf dem Bachfeld 3, 5300 
Bonn 3, Tel.0228/485588 


Buchungsjournalmodul 

DM 170 gegen V-Scheck. 
H. Bernhardt, Dombach- 
Sander 133. 5060 Ber- 
gisch-Gladbach 2 


TI 99/4A wenig gebr. X- 
Basic orig. TI, Rec.Kabel, 
Modul Fin.Ber., div. Lit. 

+ Zeitschr., DM 600.- 
Tel. 0911/301572 abends 


Verk. TI 99/4A, Ext. Ba¬ 
sic, RS 232 Extern, Druk- 
ker Honey well 80 Zei¬ 
chen/Sek. ab 20 Uhr, 

Tel. 07191/62441 


TI 99/4A + Minimem. + 
Joyst. + KassReckabel + 
4 Spielmodule + Buch 
Data Becker 500 DM, 
Tel. 0221/443388 


TI 99/4A Superextended 
Spiele Dschungel Pit 1+2, 
Olympiade 84, Star Rai- 
ders, Miner 2000, Utopia 
Schlümpfi, Dracula, Al¬ 
pha Alarm, Atlantis, Glug, 
747, Rekorderkabel, Mo¬ 
dule, Tel. 02226/7440 


Verkauf: 99/4A + Box + 
X-Basic + Disk + 32 K + 
E/A + Cass-Kabel + Joy¬ 
sticks + Bücher, Software, 
TI J neu über 3300, - für 
nur 2700,-. Daxer, Fasa- 
neriestr. 18, 8 München 
19, Tel. 089/180009 


Morsen mit TI 99/4A 
Cass. + Anl. 15 DM. Info 
(2 DM), M. Pochner, Brun- 
hild 31, 5300 Bonn 2 
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TI-Box, Controller, Floppy 
Assembler, Pascal, etc. zu 
verkaufen. Tel. 02624/ 
3817+06131/73559 


Verkaufe Mini Memory + 
E/A-Manual + EXG-Basic 
für 250 DM. Tel. 0651/ 
717442 ab 18 Uhr 


Verkaufe TI 99/4A + Ext. 
Basic-Modul + RecKabel + 
div. Progr.Cass. 350 DM, 
Tel. 07371/3472 


Olivetti M 10* Tandy 100 
Software, Literatur und 
Zubehör. Information bei 
Ing. Büro Zoschke, Post¬ 
fach 1264, 8150 Holzkir¬ 
chen, Tel. 08024/3592 


Achtung für TI 99/4A 
Schrittpaket, 1 1 neue Zei¬ 
chensätze Cas. o. Disk, 
Ex-Basic, 99Soft, Heiko 
Heinitz, Dünenweg 29, 
2200 Elmshorn 


Terminkalender, Cassetten- 
verw., Stundenplan, X-Ba- 
sic, Menuegesteuert, Pro¬ 
grammpaket auf Cass. ge¬ 
gen 20 DM-Schein an: 

Gelo Soft. Tournuserplatz 
2, 6728 Germersheim 


Verk. TI 99/4A + Ex-Ba¬ 
sic mit Buch deutsch-engl. 

+ RecKabel + Joyst. + 
Schachmodul + 99 Spezial 
I. Tel. 05141/83407 abends 


TI 99/4A+Recorder, Ex. 
Basic + 7 Module^-Datei- 
verwaltung, Statistik, Pole 
Position Schach, Othello, 
Video Games, Microsur- 
geon + ca. 100 Program¬ 
me + Literatur FP: 1100 
DM, Tel. 0228/626663 


Verkaufe TI 99/4A + RS 
232 + Ext. Basic + Peri., 
Box + DSK 1. + Sprach¬ 
synthesizer + Software 
möglichst komplett abzu¬ 
geben. Tel. 02225/13781 


Star wars und andere 
Super Action Spiele, Spit¬ 
zengrafik, Irrer Sound, 
Katalog gegen 20 DM 
Rückporto. Power Soft, 
Postfach 31, 4178 Ke¬ 
velaer 1, Roland Toonen 


, TI 99/4A X-Bas. Modul 
150,—, Datenverw. + Ana¬ 
lyse'50,—. Beg.Grammar 
30,—, Ext. Centronics 
Interface direkt an Kon¬ 
sole 150,- (z.B. Seik.GP- 
80 A), Mattel Intellivision 
mit 6 Spielkas. 200,-, 
Hans-Peter Stabrodt, Am 
Sonnenhügel 8, 8711 
Mainstockheim, Telefon: 
09321/4636 


Rückporto. B. Knedel, 
Tulpengasse 16, 3171 Wey¬ 
hausen, Tel. 05362/71187. 
— TI-Konsole und Ex- 
Basic für 390 DM 


Verk. TI 99/4A mit Ext.- 
Basic, Bücher, Joysticks, 
Rek.-Kabel u. Spiele. 
Christoph Krämer, Alex.- 
Vollmer-Str. 8, 5902 
Netphen 1 


Buchungsjournal DM 190,- Assembler-Software, The 
Minus Mission DM 25,-, Mine ( 2 0 K): 39 DM, Sub 
Heinz Bernhardt, Domb. 

Sander 133, 5060 Ber- 
gisch-Gladbach, Telefon: 


02202/38100 


Hallo TI 99/4A User! Bes¬ 
seres TV-Bild gefällig? Ja? 
Dann direkter Video-Au- 
dio-Ausgang (z.B. BNC- 
Cinch). Einbau in HF-Mo- 
dul 32, 50 DM + RPorto, 
Info (R.Porto) v. Wolf¬ 
gang Durst c/o Poeße, 
Gitschinerstr. 64, 1000 
Berlin 61 


Suche für TI 99/4A Ex- 
Basic-Modul bis 160 DM, 
Tel. 089/672521 


TI 99/4A, Ext. Basic, 
Speechs, Kabel f. Kass. 
Rec, 5 Bücher, 750 DM, 
Tel. 0211/252835 


TI 99/4A Ext. Achtung, 
nur f. Erwachs. Bitte ÄJt. 
angeb. Dieses Sp. wird Sie 
amüsieren, incl. Cass. + 
Porto + Info-Progr. Nur 
’ DM 10,— in Umschlag an: 
T. Karbach, Remscheider 
Str. 18, 5650 Solingen 1 


Editor/Ass. Anwender z. 
Erfahrungsaust, u. gegens. 
Hilfe gesucht. J. Pusch¬ 
mann, Katzmairstr. 60, 
8000 München 2, Tel. 
089/5024608 


TI 99/4A: Suche Schalter¬ 
unterlagen mit Layout für 
V24 Interface; RAM-Er- 
weiterung, Disk-Controller. 
W. Schuh, Neudekerstr.26, 
89 Augsburg, Tel. 0821/ 
991093 


Ext. TI-Disk-Laufwerk 
PHP 1850 komplett zu 
verkaufen. Preis VHS 
Tel. 06257/83247 


Hunt (14 K): 32 DM etc., 
Tel. 06443/9467 


Verk. TI 99/4A + Peribox 
+ Disk + Countv + Mana¬ 
ger (alles mit Garantie) + 
div. Module + Spiele auf 
Disk u. Kass. + Rec.-Kabel 
+ Joyst.Kabel + Abo TI- 
Revue. Anaeb. mind. 

1500 DM. Tel. 06826/ 
3505 


TI 99/4A Liste Ihre Progr. 
(Disk + Kassette, auch list¬ 
geschützte. nur Porto-Er¬ 
stattung. H. Holtz, Im 
Kleinen Kampe 13, 

3216 Salzhemmendorf 


Drucke Ihre Listings sau¬ 
ber und schnell. Das erste 
Programm kostet 5,—, 
jedes weitere (oder Kopie) 
2,50. Verkaufe Moon- 
sweeper Modul 65,— 
(3D-Grafik). Suche TI- 
User im Raum Langen- 
bruck (8077) zwecks Mei¬ 
nungsaustausch. Heinz 
Maier, Hauptstr. 24, 8077 
Reichertshofen 2, Tel. 
08453/2585 ab 18 Uhr. 


TI 99/4A kompl. mit Rec? 
Kabel, etc., Exp.-Box, 
Floppy, 32 KRAM-Karte, 
Ed. Assembler, Ext. Basic, 
14! Weitere Module, 
Sprach-Synth., Joyst., 38 
Disks! mit Super Softw., 
wahns., Literatur, Bücher 
usw., Farb-Femseher, 

VB 2800,— DM, Telefon: 
07191/58068 


Suche für TI 99/4A Disket¬ 
tenlaufwerk. Drucker 
Schnittstelle G.P. 550 A 
sowie 32 K u. Zubehör. 
Angebote erbeten: Goebel, 
Tel. 030/7212445, Greu- 
lichstr. 33A, 1000 Berlin, 
48 


Verkaufe TI- und Ex-Basic- 
Programme. Info gegen 


51 


Suche Schachmodul im 
Tausch gegen ein oder meh¬ 
rere Module z.B. (Car-Race, 
Tomstone-City, The Attack) 
V. Brose, Hamburgerstr. 1, 
4750 Unna, Tel. 02303/ 
65134 


TI 99/4A Bücher, Mini¬ 
mem., Module usw., Liste 
gegen frank, u. adress. 
Rückumschlag. M. Mayer, 
Ostendstr. 2, 6323 
Schwalmtal 1 


Wegen Systemw. Billig ab¬ 
zugeben: Module ab 9,—, 
Ex.-Schnittstelle 200,-, 
XB...Info 50 Pf., Rainer 
Werthebach, Rebenring 
64, 3300 Braunschweig 


Achtung! Super Program¬ 
me in Basic und Extended 
B. ab 2,-. Info geg. 1,— 
bei CBT-Softw., Bruck¬ 
gasse 1,8090 Wasserburg 


TI 99/4A: Suche dringend 
Minimemorymodul ggf. 
mit Literatur und Software. 
Angebote an: Christoph 
Podlech, Dorstener Str. 
439a, 4690 Herne 2, 

Tel. 02325/51459 


TI 99/4A verkaufe Com¬ 
puter, Ex-Basic, Joystick- 
Kabel, Rec.-Kabel (alles 
neuwertig). Neuer Zenith- 
Monitor (grün), sowie 
Schach, Alligator, div. 
Spiele, Dateiprogramme, 
Basickurs + Literatur. VP 
900,-, Tel. Mo - Fr. 
8-16 Uhr-02102/ 
480555, Peiser 


Suche Textverarbeitungs¬ 
modul für Cass-Rec. und 
Drucker. Keine Floppy u. 
Peri-Box vorhanden. 

J. Kupzig, Abtsberg 25, 
5216 Niederkassel, Tel. 
02208/4165 


Verk. TI 99/4A + Ex-Basic 
200,-. 32 KRAM 250,-. 
40 Progr. 40,—, Special 1+ 
II + 2 Bücher 90,—, Ralf 
Lano, Sandstr. 34, 8531 
Diespeck 


TI 99/4A X-Bas. Modul 
150,—, Datenverw. + Ana¬ 
lyse 50,—. Beg.Grammar 
30,—, Ext. Centronics 
Interface direkt an Kon¬ 
sole 150,— (z.B. Sek.GP- 
80 A), Mattel Intellivision 
mit 6 Spielkas. 200,—, 
Hans-Peter Stabrodt, Am 
Sonnenhügel 8, 8711 Main- 
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